From: Karl Heuer 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))