Mercurial > emacs
changeset 26330:d0f895577892
(simple-diary-display): Reset modeline even if
there are no diary entries since the diary buffer may be displayed.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 03 Nov 1999 15:09:11 +0000 |
| parents | 5dfb5127e9ee |
| children | 5158100a609c |
| files | lisp/calendar/diary-lib.el |
| diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/diary-lib.el Wed Nov 03 15:08:53 1999 +0000 +++ b/lisp/calendar/diary-lib.el Wed Nov 03 15:09:11 1999 +0000 @@ -392,6 +392,10 @@ (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 @@ (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"))))