Mercurial > emacs

changeset 11568:9b2265dc03a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(display-time-sentinel, display-time-filter): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:24:40 +0000
parents bcf841745ef2
children a2b107c4f2f1
files lisp/time.el
diffstat 1 files changed, 2 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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))