Để lại khu vực được lựa chọn sau khi hoạt động emacs

Question

Câu hỏi của tôi được xây dựng trên this answer by Trey Jackson để this question from SyntaxT3rr0r.

Trey đề xuất các chức năng sau đây cho incrementing mỗi số hai chữ số trong khu vực được lựa chọn của một bộ đệm 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))))))) 

Tôi muốn sử dụng chức năng này cho mục đích của riêng mình. Tuy nhiên, tôi muốn tăng số lượng nhiều lần liên tiếp. Vấn đề với hàm, ở dạng hiện tại của nó, là trước mỗi lời gọi, tôi phải chọn lại vùng bằng chuột.

Câu hỏi của tôi là: Làm thế nào chức năng Trey có thể được sửa đổi để nó rời khỏi khu vực được lựa chọn sau khi gọi? (mục đích cuối cùng của tôi là để gán chức năng này để một phím tắt (giống như ctrl + ↑) vì vậy mà tôi nếu tôi giữ ctrl và ↑ phím được nhấn xuống, tất cả các số có hai chữ số trong vùng tôi chọn sẽ liên tục tăng.)

Nhân tiện, tôi biết về this answer by Brian Campbell, đề xuất sử dụng exchange-point-and-mark để chọn lại khu vực đã chọn trước đó. Tuy nhiên, tôi đã thử điều đó, và nó dường như không giúp đỡ trong trường hợp này.

Answer 1

Dưới đây là chức năng của bạn sửa đổi để sử dụng let (deactivate-mark) bọc bên save-excursion như đề xuất trong câu trả lời người dùng event_jr được liên kết đến:

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

Answer 2

Bạn cần phải ràng buộc Tắt-mark để ngăn chặn nó được thiết lập see:

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

dẫn sử dụng: http://www.gnu.org/software/emacs/manual/html_node/elisp/The-Mark.html#index-deactivate_002dmark-2801