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 | bc1a42782e795bcec74822fbd8f619ed67c1f01d (patch) | |
| tree | df640c99db25c857162141b1b3babe5470696deb /lisp/time.el | |
| parent | 74268188b33d748a776aef9d9c64a9e0f78e365d (diff) | |
| download | emacs-bc1a42782e795bcec74822fbd8f619ed67c1f01d.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)) |