diff options
| author | Gerd Moellmann <[email protected]> | 1999-11-03 15:10:21 +0000 |
|---|---|---|
| committer | Gerd Moellmann <[email protected]> | 1999-11-03 15:10:21 +0000 |
| commit | 3179af52e45cb0df6fb789a6c6ca89be6c0a611c (patch) | |
| tree | 68ed0b9d869a7dc4a9e0a6a505b0168a89b7d6de /lisp/calendar/diary-lib.el | |
| parent | d172e3e45a6a72e401583a135f37eb3e85c75fb9 (diff) | |
(simple-diary-display): Reset modeline even if
there are no diary entries since the diary buffer may be displayed.
Diffstat (limited to 'lisp/calendar/diary-lib.el')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index c35dcd2482..e45a81aa86 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -392,6 +392,10 @@ changing the variable `diary-include-string'." (msg (format "No diary entries for %s %s" (concat date-string (if holiday-list ":" "")) (mapconcat 'identity holiday-list "; ")))) + (calendar-set-mode-line + (concat "Diary for " date-string + (if holiday-list ": " "") + (mapconcat 'identity holiday-list "; "))) (if (or (not diary-entries-list) (and (not (cdr diary-entries-list)) (string-equal (car (cdr (car diary-entries-list))) ""))) @@ -407,10 +411,6 @@ changing the variable `diary-include-string'." (setq buffer-read-only t) (display-buffer holiday-buffer) (message "No diary entries for %s" date-string)) - (calendar-set-mode-line - (concat "Diary for " date-string - (if holiday-list ": " "") - (mapconcat 'identity holiday-list "; "))) (display-buffer (find-buffer-visiting d-file)) (message "Preparing diary...done")))) |