Mercurial > emacs

diff lisp/calendar/appt.el @ 11592:030e5a06a38a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(appt-check): Use force-mode-line-update.
author Karl Heuer <kwzh@gnu.org>
date Tue, 25 Apr 1995 22:33:23 +0000
parents ac21ac5e8c69
children f92983da3dfd
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)