diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-17 00:41:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-17 00:41:34 +0000 |
| commit | ecbcb0f2ff56d03cc43cfea2b1dc8fd3fb0e96a2 (patch) | |
| tree | 464603fcd1570c57b7106d34b6c56e99a47da8bd | |
| parent | c9a4d276240ed3852938bf03a1e0cdc110f77e8e (diff) | |
| download | emacs-ecbcb0f2ff56d03cc43cfea2b1dc8fd3fb0e96a2.tar.gz | |
(isearch-done): Don't print msg about mark if we don't set it.
Fix paren error.
| -rw-r--r-- | lisp/isearch.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 3e8b79d084a..c1a92351cb3 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -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 @@ is treated as a regexp. See \\[isearch-forward] for more info." (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 |