From 1cd3732c0aee222433694aaa3be2f3536d0d983e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:28:40 +0000 Subject: [PATCH] (isearch-mode, isearch-done): Use force-mode-line-update. --- lisp/isearch.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -;; |$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. -- 2.39.5