changeset 11592:030e5a06a38a

(appt-check): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:33:23 +0000
parents 5f3aa9df448e
children f5385353aae3
files lisp/calendar/appt.el
diffstat 1 files changed, 1 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)