# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 798849203 0
# Node ID 030e5a06a38a89b88c3c038c4597f9580529a55d
# Parent  5f3aa9df448e39c3838abe792d5aca63c5721d61
(appt-check): Use force-mode-line-update.

diff -r 5f3aa9df448e -r 030e5a06a38a lisp/calendar/appt.el
--- a/lisp/calendar/appt.el	Tue Apr 25 22:33:13 1995 +0000
+++ b/lisp/calendar/appt.el	Tue Apr 25 22:33:23 1995 +0000
@@ -337,10 +337,7 @@
 				    (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)