mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(display-time-sentinel, display-time-filter): Use force-mode-line-update.

Browse Source
This commit is contained in:
Karl Heuer 1995-04-25 22:24:40 +00:00
parent 75abbc6e63
commit ffedf987d7
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/time.el
View File

@ -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))