emacs - 在 emacs 操作后保持选中区域

Question

我的问题基于 this answer by Trey Jackson至 this question from SyntaxT3rr0r .

Trey 建议使用以下函数来递增 Emacs 缓冲区的选定区域中的每个两位数。

(defun add-1-to-2-digits (b e)
  "add 1 to every 2 digit number in the region"
  (interactive "r")
  (goto-char b)
  (while (re-search-forward "\\b[0-9][0-9]\\b" e t)
    (replace-match (number-to-string (+ 1 (string-to-int (match-string 0)))))))

我想将此功能用于我自己的目的。但是，我想连续多次增加数字。该函数的当前形式的问题是，在每次调用之前，我必须用鼠标再次选择该区域。

我的问题是:如何修改 Trey 的函数，使其在调用后离开选定的区域？ (我的最终目标是将此功能分配给键盘快捷键(类似于 ctrl+↑)，这样如果我按住 ctrl 和 ↑ 键，我选择的区域中的所有两位数字都会不断增加。)

顺便说一下，我知道 this answer by Brian Campbell ，建议使用 exchange-point-and-mark重新选择先前选择的区域。但是，我试过了，在这种情况下似乎没有帮助。

Answer 1

这是您修改为使用的函数 let (deactivate-mark)包裹在里面 save-excursion正如回答用户 event_jr 中所建议的，链接到:

https://stackoverflow.com/a/11080667/903943

(defun add-1-to-2-digits (b e)
  "add 1 to every 2 digit number in the region"
  (interactive "r")
  (save-excursion
    (let (deactivate-mark) 
      (goto-char b)
      (while (re-search-forward "\\b[0-9][0-9]\\b" e t)
        (replace-match (number-to-string (+ 1 (string-to-int (match-string 0)))))))))