diff options
| author | Karl Heuer | 1998-08-27 15:17:51 +0000 |
|---|---|---|
| committer | Karl Heuer | 1998-08-27 15:17:51 +0000 |
| commit | f2999a979e2af1ede5c2498bc624a4db2a0284bd (patch) | |
| tree | ceda476d7eec7d3639f6cf08dce49aa0d25d7954 | |
| parent | 3c056df3ad16cf6054d9d035a43674032af0637c (diff) | |
| download | emacs-f2999a979e2af1ede5c2498bc624a4db2a0284bd.tar.gz emacs-f2999a979e2af1ede5c2498bc624a4db2a0284bd.zip | |
(appt-check): Clear appt-mode-string if we don't put something in it.
| -rw-r--r-- | lisp/calendar/appt.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el index 0efac2ec34c..9368c1b4265 100644 --- a/lisp/calendar/appt.el +++ b/lisp/calendar/appt.el | |||
| @@ -286,6 +286,8 @@ The following variables control the action of the notification: | |||
| 286 | (let ((diary-display-hook 'appt-make-list)) | 286 | (let ((diary-display-hook 'appt-make-list)) |
| 287 | (diary)))) | 287 | (diary)))) |
| 288 | 288 | ||
| 289 | (setq appt-mode-string nil) | ||
| 290 | |||
| 289 | ;; If there are entries in the list, and the | 291 | ;; If there are entries in the list, and the |
| 290 | ;; user wants a message issued | 292 | ;; user wants a message issued |
| 291 | ;; get the first time off of the list | 293 | ;; get the first time off of the list |