# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798848680 0
# Node ID 9b2265dc03a6ba13b372830571b03c2a57af4eab
# Parent  bcf841745ef26f48b967e14dcf650dbe0b7e9002
(display-time-sentinel, display-time-filter): Use force-mode-line-update.

diff -r bcf841745ef2 -r 9b2265dc03a6 lisp/time.el
--- a/lisp/time.el	Tue Apr 25 22:24:14 1995 +0000
+++ b/lisp/time.el	Tue Apr 25 22:24:40 1995 +0000
@@ -88,8 +88,7 @@
   (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 @@
     (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))