From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Dec 1994 00:41:34 +0000 (+0000)
Subject: (isearch-done): Don't print msg about mark if we don't set it.
X-Git-Tag: emacs-19.34~5673
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9821535a4452685f81f54003a6f5319204f5e80a;p=emacs.git

(isearch-done): Don't print msg about mark if we don't set it.
Fix paren error.
---

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