From: Gerd Moellmann Date: Wed, 3 Nov 1999 15:10:21 +0000 (+0000) Subject: (simple-diary-display): Reset modeline even if X-Git-Tag: emacs-pretest-21.0.90~6189 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3179af52e45cb0df6fb789a6c6ca89be6c0a611c;p=emacs.git (simple-diary-display): Reset modeline even if there are no diary entries since the diary buffer may be displayed. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d745877a0c7..48727b52341 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +1999-11-03 Edward M. Reingold + + * calendar.el (redraw-calendar): Move to nearest date before + redrawing. + + * diary-lib.el (simple-diary-display): Reset modeline even if + there are no diary entries since the diary buffer may be displayed. + 1999-11-03 Richard M. Stallman * emacs-lisp/debug.el (debug): If noninteractive, display the diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index c35dcd24824..e45a81aa868 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"))))