diff options
| author | Karl Heuer | 1995-04-25 22:33:23 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-04-25 22:33:23 +0000 |
| commit | 744c21771d4b5d65cc2f4d317d7a686c75989c22 (patch) | |
| tree | d5aff02d4dd5523c13d7901a6d6f6f42490e0ccf | |
| parent | a838308c4ca80395e623e4d24de12d376b08cada (diff) | |
| download | emacs-744c21771d4b5d65cc2f4d317d7a686c75989c22.tar.gz emacs-744c21771d4b5d65cc2f4d317d7a686c75989c22.zip | |
(appt-check): Use force-mode-line-update.
| -rw-r--r-- | lisp/calendar/appt.el | 5 |
1 files changed, 1 insertions, 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." | |||
| 337 | (concat "App't in " | 337 | (concat "App't in " |
| 338 | min-to-app " min. " new-time " ")) | 338 | min-to-app " min. " new-time " ")) |
| 339 | 339 | ||
| 340 | ;; force mode line updates - from time.el | 340 | (force-mode-line-update t) |
| 341 | |||
| 342 | (save-excursion (set-buffer (other-buffer))) | ||
| 343 | (set-buffer-modified-p (buffer-modified-p)) | ||
| 344 | (sit-for 0))) | 341 | (sit-for 0))) |
| 345 | 342 | ||
| 346 | (if (= min-to-app 0) | 343 | (if (= min-to-app 0) |