From 7973bcea7f88d683965178b6dc57f53904b97413 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 10 Jan 2011 18:31:47 -0500 Subject: [PATCH] * lisp/calendar/diary-lib.el (diary-mode): Refresh *Calendar* after refreshing the diary buffer. --- lisp/ChangeLog | 33 +++++++++++++++++++-------------- lisp/calendar/diary-lib.el | 5 ++++- 2 files changed, 23 insertions(+), 15 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4594b1acd95..2b4079c0eb9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,14 +1,19 @@ +2011-01-10 Stefan Monnier + + * calendar/diary-lib.el (diary-mode): Refresh *Calendar* after + refreshing the diary buffer. + 2011-01-10 Ken Manheimer - allout.el: Add 2011 to the file copyright. + * allout.el: Add 2011 to the file copyright. (allout-encrypt-string): Prevent encryption from adding an extra newline at the end of the topic body. (allout-version): Increment to 2.3. 2011-01-10 Michael Albinus - * net/dbus.el (dbus-unregister-service): Complete doc. Fix - call of dbus-error signal. + * net/dbus.el (dbus-unregister-service): Complete doc. + Fix call of dbus-error signal. (dbus-register-property): Use `dont-register' keyword. 2011-01-10 Jan Moringen @@ -20,8 +25,8 @@ 2011-01-09 Chong Yidong - * progmodes/idlw-help.el (idlwave-help-link): Inherit from link - face. Suggested by Joakim Verona. + * progmodes/idlw-help.el (idlwave-help-link): Inherit from link face. + Suggested by Joakim Verona. * comint.el (comint-highlight-prompt): Inherit minibuffer-prompt. @@ -32,8 +37,8 @@ Merge into a single function `widget-toggle-value-create'. * cus-edit.el (custom-variable-value-create, custom-visibility) - (custom-face-edit-value-create, custom-face-value-create): Replace - :on-image and :off-image widget properties with :on-glyph and + (custom-face-edit-value-create, custom-face-value-create): + Replace :on-image and :off-image widget properties with :on-glyph and :off-glyph, for consistency with the `visibility' widget. 2011-01-09 Andreas Schwab @@ -168,7 +173,7 @@ 2011-01-04 Jan Moringen - * net/dbus.el (dbus-register-property): Added optional parameter + * net/dbus.el (dbus-register-property): Add optional parameter dont-register-service. Updated docstring accordingly. 2011-01-04 Andreas Schwab @@ -337,8 +342,8 @@ 2010-12-30 Tassilo Horn - * doc-view.el (doc-view-mode, doc-view-toggle-display): Use - normal-mode without doc-view-mode bindings in auto-mode-alist as + * doc-view.el (doc-view-mode, doc-view-toggle-display): + Use normal-mode without doc-view-mode bindings in auto-mode-alist as fallback instead of hard coding fundamental mode. 2010-12-30 Tassilo Horn @@ -533,8 +538,8 @@ 2010-12-16 Leo - * eshell/eshell.el (eshell-directory-name): Use - locate-user-emacs-file (Bug#7578). + * eshell/eshell.el (eshell-directory-name): + Use locate-user-emacs-file (Bug#7578). 2010-12-15 Glenn Morris @@ -559,8 +564,8 @@ (tramp-handle-insert-file-contents): Do not set permanent-local property. - * net/tramp-cache.el (tramp-persistency-file-name): Use - `locate-user-emacs-file' if fboundp. + * net/tramp-cache.el (tramp-persistency-file-name): + Use `locate-user-emacs-file' if fboundp. * net/tramp-sh.el (tramp-methods): Add "ksu". (tramp-default-user-alist): Add "ksu". Use `regexp-opt' for diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 869d69fd8b7..ee4de475079 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -1,7 +1,7 @@ ;;; diary-lib.el --- diary functions ;; Copyright (C) 1989, 1990, 1992, 1993, 1994, 1995, 2001, 2002, 2003, -;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 +;; 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 ;; Free Software Foundation, Inc. ;; Author: Edward M. Reingold @@ -2346,6 +2346,9 @@ return a font-lock pattern matching array of MONTHS and marking SYMBOL." '(diary-font-lock-keywords t)) (add-to-invisibility-spec '(diary . nil)) (add-hook 'after-save-hook 'diary-redraw-calendar nil t) + ;; In case the file was modified externally, refresh the calendar + ;; after refreshing the diary buffer. + (add-hook 'after-revert-hook 'diary-redraw-calendar nil t) (if diary-header-line-flag (setq header-line-format diary-header-line-format))) -- 2.11.4.GIT