From 744c21771d4b5d65cc2f4d317d7a686c75989c22 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Tue, 25 Apr 1995 22:33:23 +0000 Subject: [PATCH] (appt-check): Use force-mode-line-update. --- lisp/calendar/appt.el | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 24f2259f314..14291e5da37 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el @@ -337,10 +337,7 @@ Therefore, you need to have `(display-time)' in your .emacs file." (concat "App't in " min-to-app " min. " new-time " ")) - ;; force mode line updates - from time.el - - (save-excursion (set-buffer (other-buffer))) - (set-buffer-modified-p (buffer-modified-p)) + (force-mode-line-update t) (sit-for 0))) (if (= min-to-app 0) -- 2.39.5