mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(isearch-done): Move point (for small window)

Browse Source 
before deciding whether to set the mark.
This commit is contained in:
Richard M. Stallman 1993-07-31 18:39:09 +00:00
parent ea1ebaed7a
commit d49b6338aa
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/isearch.el
View File

@ -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 @@ is treated as a regexp. See \\[isearch-forward] for more info."
(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 @@ is treated as a regexp. See \\[isearch-forward] for more info."
(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