(appt-check): Use force-mode-line-update.

diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 24f2259f314606d528dff3dd15c877d00c45f06c..14291e5da37a3ca3519562d3d104fd2920b7bb2e 100644 (file)
--- 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)