From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:28:40 +0000 (+0000)
Subject: (isearch-mode, isearch-done): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4279
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1cd3732c0aee222433694aaa3be2f3536d0d983e;p=emacs.git

(isearch-mode, isearch-done): Use force-mode-line-update.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index cab2d090b73..2a6418ea8f8 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -4,7 +4,7 @@
 
 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
 
-;; |$Date: 1995/04/14 17:59:59 $|$Revision: 1.88 $
+;; |$Date: 1995/04/24 15:27:35 $|$Revision: 1.89 $
 
 ;; This file is part of GNU Emacs.
 
@@ -495,7 +495,7 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
 	(if isearch-slow-terminal-mode (current-window-configuration) nil))
 
   (setq	isearch-mode " Isearch")  ;; forward? regexp?
-  (set-buffer-modified-p (buffer-modified-p)) ; update modeline
+  (force-mode-line-update)
 
   (isearch-push-state)
 
@@ -581,7 +581,7 @@ is treated as a regexp.  See \\[isearch-forward] for more info."
 		  (message "Mark saved where search started"))))))
 
   (setq isearch-mode nil)
-  (set-buffer-modified-p (buffer-modified-p))  ;; update modeline
+  (force-mode-line-update)
 
   (if (and (> (length isearch-string) 0) (not nopush))
       ;; Update the ring data.