- 363 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/18(金) 05:29:08.04 .net]
- >>353
やっつけだけど一回で戻れるようにしてみた
どや！
(defvar isearch-direction nil)
(defun isearch-check-reverse (arg)
(unless (eq arg isearch-direction)
(let ((op isearch-opoint)
(str isearch-string))
(cond
((eq arg 'backward)
(setq isearch-direction 'backward)
(isearch-backward nil 1))
((eq arg 'forward)
(setq isearch-direction 'forward)
(isearch-forward nil 1)))
(isearch-yank-string str)
(setq isearch-opoint op))))
(advice-add 'isearch-forward :before (lambda (&optional regexp-p no-recursive-edit) (setq isearch-direction 'forward)))
(advice-add 'isearch-backward :before (lambda (&optional regexp-p no-recursive-edit) (setq isearch-direction 'backward)))
(advice-add 'isearch-repeat-forward :before (lambda () (isearch-check-reverse 'forward)))
(advice-add 'isearch-repeat-backward :before (lambda () (isearch-check-reverse 'backward)))
|
 |
