From 9edfb3d2a1d7480ed6566c5e7b25036d9c47eb19 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 24 Mar 2004 18:37:57 +0000 Subject: [PATCH] *** empty log message *** --- lisp/ChangeLog | 13 +++++++++++++ lisp/calendar/diary-lib.el | 2 +- 2 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dea317099bd..b1e928bae46 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,16 @@ +2004-03-24 Glenn Morris + + * calendar/appt.el (appt-check): Remove superfluous progn. + When finished with diary buffer: if it was not being displayed + before, kill it; otherwise restore its original state. + Suggested by Matthew Mundell . + + * calendar/calendar.el (calendar-set-mode-line): Use total + available mode-line width, rather than frame-width. + + * calendar/diary-lib.el (fancy-diary-display): Set mode-line + after mode change so effect not lost. + 2004-03-23 Dave Love * dired.el (dired) : Add link to manual. diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index f4150ee0825..f79a217cc32 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -554,7 +554,6 @@ This function is provided for optional use as the `diary-display-hook'." (message "%s" msg) (set-buffer (get-buffer-create holiday-buffer)) (setq buffer-read-only nil) - (calendar-set-mode-line date-string) (erase-buffer) (insert (mapconcat 'identity holiday-list "\n")) (goto-char (point-min)) @@ -658,6 +657,7 @@ This function is provided for optional use as the `diary-display-hook'." (setq buffer-read-only t) (display-buffer fancy-diary-buffer) (fancy-diary-display-mode) + (calendar-set-mode-line date-string) (message "Preparing diary...done")))) (defun make-fancy-diary-buffer () -- 2.11.4.GIT