emacs操作後に領域を選択したままにする

Question

私の質問はthis answer by Trey Jacksonからthis question from SyntaxT3rr0rになります。

Treyは、Emacsバッファの選択された領域の2桁の数字をそれぞれインクリメントする次の関数を提案しています。

(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の機能を変更するにはどうすればいいですか？（私の究極の目的は、私は私がすべて2桁の数字で、押さえキー↑CTRLとを続ける場合ようにキーボードショートカット（↑CTRL + のようなもの）にこの機能を割り当てることです私の選択した領域は継続的に増加します。

ところで、私はthis answer by Brian Campbellを認識しています。これは、exchange-point-and-markを使用して以前に選択した領域を再選択することを示唆しています。しかし、私はそれを試みました、そして、このインスタンスでは助けにならないようです。

Answer 1

はここにあなたの関数が答えで示唆されているようにsave-excursion内にラップlet (deactivate-mark)を使用するように変更されていますユーザーイベント_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))))))))) 

Answer 2

あなたは無効マークを設定するを参照してくださいされてから、それを防ぐためにバインドする必要があります。

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

マニュアル：http://www.gnu.org/software/emacs/manual/html_node/elisp/The-Mark.html#index-deactivate_002dmark-2801