diff options
author | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:24:40 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1995-04-25 22:24:40 +0000 |
commit | ffedf987d7259afb92bed3f8b17499f6297af86f (patch) | |
tree | 38d04d0d6a53374014b0053b465eecd573b893b3 /lisp/time.el | |
parent | 75abbc6e6336e4f7aec041b78e3bad124a55ce95 (diff) | |
download | emacs-ffedf987d7259afb92bed3f8b17499f6297af86f.tar.gz |
(display-time-sentinel, display-time-filter): Use force-mode-line-update.
Diffstat (limited to 'lisp/time.el')
-rw-r--r-- | lisp/time.el | 7 |
1 files changed, 2 insertions, 5 deletions
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)) |