如何通过 emacs 缓冲区修改行有效导航

Question

我是 elisp（但不是编程）初学者，对实现某个功能的最佳实践有一些疑问。我写了一个 elisp 函数，它根据某些规则重新格式化汇编源代码；此功能目前适用于单行。它基本上使用行内导航、查看子表达式和替换匹配调用来实现目标。

现在我想将其应用于标记区域，逐行处理该区域。该行为将类似于 indent-region 函数。

推荐（且有效）的方法是什么？我考虑使用(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

我接受 sds 的回答。最后，我使用了下面的代码。原因是我希望整行都可用于重新格式化，而不仅仅是标记的区域。因此，仅(narrow-to-region) 就无法完成这项工作。 我很高兴了解更多信息，并感谢 cmets 的优点/缺点或遗漏的东西：

(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)))))