- 417 名前：名無しさん＠お腹いっぱい。 mailto:sage [2016/03/27(日) 21:07:36.81 .net]
- >>408
(defvar isearch-start-time nil)
(defadvice isearch-forward (before ad-set-isearch-start-time activate)
(setq isearch-start-time (current-time)))
(defun isearch-repeat-or-avy ()
(interactive)
(if (and isearch-start-time
(< (float-time (time-subtract (current-time) isearch-start-time)) 0.2))
(progn
(isearch-done t)
(isearch-clean-overlays)
(avy-goto-char-timer last-prefix-arg))
(isearch-repeat-forward))
(setq isearch-start-time nil))
(define-key isearch-mode-map (kbd "C-s") 'isearch-repeat-or-avy)
|
 |
