Mercurial > emacs
changeset 4379:36f6f4b28dde
(isearch-done): Move point (for small window)
before deciding whether to set the mark.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 31 Jul 1993 18:39:09 +0000 |
| parents | 088883bdcd70 |
| children | 0c7aefc58e0f |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Sat Jul 31 18:34:04 1993 +0000 +++ b/lisp/isearch.el Sat Jul 31 18:39:09 1993 +0000 @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1993/07/08 22:33:57 $|$Revision: 1.45 $ +;; |$Date: 1993/07/15 03:46:02 $|$Revision: 1.46 $ ;; This file is not yet part of GNU Emacs, but it is based almost ;; entirely on isearch.el which is part of GNU Emacs. @@ -584,6 +584,11 @@ (if isearch-window-configuration (set-window-configuration isearch-window-configuration)) + (if isearch-small-window + (goto-char found-point) + ;; Exiting the save-window-excursion clobbers window-start; restore it. + (set-window-start (selected-window) found-start t))) + ;; If there was movement, mark the starting position. ;; Maybe should test difference between and set mark iff > threshold. (if (/= (point) isearch-opoint) @@ -594,10 +599,6 @@ (message "Mark saved where search started"))) ;; (message "") why is this needed? ) - (if isearch-small-window - (goto-char found-point) - ;; Exiting the save-window-excursion clobbers window-start; restore it. - (set-window-start (selected-window) found-start t))) (setq isearch-mode nil) (set-buffer-modified-p (buffer-modified-p)) ;; update modeline