From: Karl Heuer <kwzh@gnu.org>
Date: Tue, 25 Apr 1995 22:24:40 +0000 (+0000)
Subject: (display-time-sentinel, display-time-filter): Use force-mode-line-update.
X-Git-Tag: emacs-19.34~4290
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ffedf987d7259afb92bed3f8b17499f6297af86f;p=emacs.git

(display-time-sentinel, display-time-filter): Use force-mode-line-update.
---

diff --git a/lisp/time.el b/lisp/time.el
index 95c761f24e5..f99cb3c5d51 100644
--- a/lisp/time.el
+++ b/lisp/time.el
@@ -88,8 +88,7 @@ After each update, `display-time-hook' is run with `run-hooks'."
   (or (eq (process-status proc) 'run)
       (setq display-time-string ""))
   ;; Force mode-line updates
-  (save-excursion (set-buffer (other-buffer)))
-  (set-buffer-modified-p (buffer-modified-p))
+  (force-mode-line-update t)
   (sit-for 0))
 
 (defvar display-time-string-forms
@@ -165,9 +164,7 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'.")
     (setq display-time-string
           (mapconcat 'eval display-time-string-forms "")))
   (run-hooks 'display-time-hook)
-  ;; Force redisplay of all buffers' mode lines to be considered.
-  (save-excursion (set-buffer (other-buffer)))
-  (set-buffer-modified-p (buffer-modified-p))
+  (force-mode-line-update)
   ;; Do redisplay right now, if no input pending.
   (sit-for 0))