Commit 3179af52 authored by Gerd Moellmann's avatar Gerd Moellmann

(simple-diary-display): Reset modeline even if

there are no diary entries since the diary buffer may be displayed.
parent d172e3e4
1999-11-03 Edward M. Reingold <reingold@emr.cs.uiuc.edu>
* 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 <rms@caffeine.ai.mit.edu>
* emacs-lisp/debug.el (debug): If noninteractive, display the
......
......@@ -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"))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment