您可以使用以下命令组合:
M-x narrow-to-region
C-s SOMETEXT
M-x widen
不过,这有点麻烦,这里有一个新命令,可以自动为您执行上述操作。
(defun isearch-forward-region-cleanup ()
"turn off variable, widen"
(if isearch-forward-region
(widen))
(setq isearch-forward-region nil))
(defvar isearch-forward-region nil
"variable used to indicate we're in region search")
(add-hook 'isearch-mode-end-hook 'isearch-forward-region-cleanup)
(defun isearch-forward-region (&optional regexp-p no-recursive-edit)
"Do an isearch-forward, but narrow to region first."
(interactive "P\np")
(narrow-to-region (point) (mark))
(goto-char (point-min))
(setq isearch-forward-region t)
(isearch-mode t (not (null regexp-p)) nil (not no-recursive-edit)))
现在就做吧
(global-set-key (kbd "C-S-s") 'isearch-forward-region)