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