# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 941641751 0
# Node ID d0f895577892e9a35977b775ca88c9618457f4cf
# Parent  5dfb5127e9ee6376df3af6bd3dc6e0370b8e800c
(simple-diary-display): Reset modeline even if
there are no diary entries since the diary buffer may be displayed.

diff -r 5dfb5127e9ee -r d0f895577892 lisp/calendar/diary-lib.el
--- 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"))))