これもid:k1LoWさんが話していたアイデアです。 (eval-when-compile (require 'cl)) (defun my-chr (list-of-string) (lexical-let ((los list-of-string) (last-word "") (count 0)) (lambda () (interactive) (if (eq this-command real-last-command) (in…

id:k1LoWさんと居酒屋で、 連打すると良きに計らってリージョン選択してくれるコマンドがあると便利ですよね。 という話をしたので考えてみました。書きかけ版です。 関数名とか適当です。 (defun auto-region-paren (&optional forward-char) (ignore-error…