[xyzzy:07961] Re: インクリメンタルサーチについて

[KAMEI Tetsuya <kamei@xxxxxxxxxxxx>]

fukae さん、こんにちは。

	2002年1月5日(土)[20:21:35]の、
	[xyzzy:07958] インクリメンタルサーチについて
	への返事です。

| (1)インクリメンタルサーチ(C-s,C-rを続けて押す)して, 捜しているところが 
|    見つかるとF5を押すと次の場所に飛んでいってしまう. 
|    S-F5で戻るのが面倒なので, これをそのままの場所にいるようにしてほしい. 

F5 を押さなければいいだけのような気がしますが…。

(define-key ed::*isearch-map* #\F5 'ed::isearch-exit)

| (2)(1)で見つかった場所で編集をしたあと, 例えばF6キーを押すと
|     インクリメンタルサーチを始めた元の場所にカーソルが戻るようにしてほしい. 

とりあえずこんな感じ。

(setq-default isearch-marker nil)

(defun isearch-start ()
  (unless isearch-marker
    (make-local-variable 'isearch-marker)
    (setq isearch-marker (make-marker)))
  (set-marker isearch-marker))

(global-set-key #\C-s
		#'(lambda ()
		    (interactive)
		    (isearch-start)
		    (isearch-forward)))

(global-set-key #\C-r
		#'(lambda ()
		    (interactive)
		    (isearch-start)
		    (isearch-backward)))

(defun isearch-goto-start ()
  (interactive)
  (and isearch-marker (goto-marker isearch-marker)))

-- 
亀井哲弥(KAMEI Tetsuya)
kamei@xxxxxxxxxxxx