Как эффективно перемещаться по линиям модификации буфера emacs

Question

Я начинаю новичок (но не программирую) и задаю несколько вопросов о наилучшей практике для реализации функции. Я написал функцию elisp, которая переформатирует исходный код ассемблера в соответствии с определенными правилами; эта функция работает в течение одной строки. В основном он использует навигацию по линиям, поиск и замещение вызовов по подвыражениям для достижения цели.

Теперь я хотел бы применить его к отмеченной области, обрабатывая область по строкам. Поведение будет аналогично положению функции отступа.

Каков рекомендуемый (и эффективный) способ его реализации? Я считаю, что (line-number-at-pos ...) применяется к (region-beginning) и (region-end) для подсчета номеров строк, а затем перемещения сверху вниз, работая через буфер по строкам, изменяя их.

Кроме того, что мне нужно для сохранения этой операции? Я, однако, о (save-match-data ...) и не уверен, как обращаться с меткой и точкой. Я думаю, они будут бесполезны, поскольку объем текста изменился.

Answer 1

Используйте save-excursion для сохранения и восстановления точки и отметки и save-restriction, чтобы сузить область.

Шаблон будет что-то вроде этого:

(defun my-process-region (beg end) 
    "Apply `my-process-line` to every line in region." 
    (interactive "r") 
    (save-restriction 
    (widen) 
    (save-excursion 
     (narrow-to-region beg end) 
     (goto-char (point-min)) 
     (while (not (eobp)) 
     (my-process-line))))) 

Answer 2

Я принимаю ответ ДДС. В конце я использовал код ниже. Причина в том, что я хотел, чтобы целые строки были доступны для переформатирования, а не только для отмеченной области. Так что только (narrow-to-region) не выполнил бы эту работу. Я счастлив, чтобы узнать больше, и ценим комментарии о плюсах/минусах или пропавшие вещи:

(defun x-mode-reformat-region (beg end) 
    "..." 
    (interactive "r") 
    (save-excursion 
    (let ((nlines (+ 1 (apply '- (mapcar 'line-number-at-pos `(,end ,beg))))) 
      bol 
      ...) 
     (goto-char beg) 
     (dotimes (i nlines) 
     (setq bol (line-beginning-position)) 
     (goto-char bol) 
     ;; do reformatting for this line -- uses bol for calculations 
     (forward-line))))) 

Следующая попытка - измененными на основе комментариев. Я не нашел более простой способ расширить выбор, чтобы включить всю линию ... любую идею, может ли комбинация setq/narrow-to-region быть упрощена дополнительно (за исключением использования (progn ...) непосредственно в качестве аргумента?

(defun x-mode-reformat-region (beg end) 
    "..." 
    (interactive "r") 
    (save-restriction 
    (widen) 
    (save-excursion 
     (setq beg (progn (goto-char beg) (line-beginning-position)) 
      end (progn (goto-char end) (line-end-position))) 
     (narrow-to-region beg end) 
     (goto-char (point-min)) 
     (while (not (eobp)) 
     (insert "*") ;; placeholder for fancy reformatting 
     (forward-line)))))