Mercurial > emacs
changeset 10183:7e28ad5e1042
(isearch-done): Don't print msg about mark if we don't set it.
Fix paren error.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Dec 1994 00:41:34 +0000 |
| parents | b80150d748d1 |
| children | 4fe4f49bcdb1 |
| files | lisp/isearch.el |
| diffstat | 1 files changed, 7 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/isearch.el Sat Dec 17 00:40:24 1994 +0000 +++ b/lisp/isearch.el Sat Dec 17 00:41:34 1994 +0000 @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$Date: 1994/12/05 19:34:52 $|$Revision: 1.79 $ +;; |$Date: 1994/12/15 02:06:45 $|$Revision: 1.80 $ ;; This file is part of GNU Emacs. @@ -570,18 +570,16 @@ (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))) + (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) - (progn - (or (and transient-mark-mode mark-active) - (push-mark isearch-opoint t)) - (or executing-macro (> (minibuffer-depth) 0) - (message "Mark saved where search started"))) - ;; (message "") why is this needed? - ) + (or (and transient-mark-mode mark-active) + (progn + (push-mark isearch-opoint t) + (or executing-macro (> (minibuffer-depth) 0) + (message "Mark saved where search started")))))) (setq isearch-mode nil) (set-buffer-modified-p (buffer-modified-p)) ;; update modeline