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 | |
parent | d172e3e45a6a72e401583a135f37eb3e85c75fb9 (diff) |
(simple-diary-display): Reset modeline even if
there are no diary entries since the diary buffer may be displayed.
-rw-r--r-- | lisp/ChangeLog | 8 | ||||
-rw-r--r-- | lisp/calendar/diary-lib.el | 8 |
2 files changed, 12 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d745877a0c..48727b5234 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +1999-11-03 Edward M. Reingold <[email protected]> + + * 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 <[email protected]> * emacs-lisp/debug.el (debug): If noninteractive, display the 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")))) |