Emacs Part 51

244 ：名無しさん＠お腹いっぱい。：2018/07/06(金) 14:49:44.52 .net

>>242
こんな advice 付けるってのは？

(defadvice isearch-mode (around ad-isearch-bounds activate)
(let ((bounds (and (use-region-p)
`(,(region-beginning) . ,(region-end)))))
(when bounds
(deactivate-mark t))
ad-do-it
(when bounds
(let ((str (buffer-substring-no-properties (car bounds) (cdr bounds))))
(when (< (car bounds) (point))
(goto-char (car bounds)))
(isearch-yank-string str)))))