Mercurial > emacs

changeset 16545:ff25eb6a7d11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-diary-entries): Reread the diary file if it has changed.
author Richard M. Stallman <rms@gnu.org>
date Sat, 09 Nov 1996 09:06:52 +0000
parents 9fffc9e5fc42
children 06f92ef2857c
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 5 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/diary-lib.el	Sat Nov 09 09:04:52 1996 +0000
+++ b/lisp/calendar/diary-lib.el	Sat Nov 09 09:06:52 1996 +0000
@@ -239,9 +239,11 @@
         (message "Preparing diary...")
         (save-excursion
           (let ((diary-buffer (find-buffer-visiting d-file)))
-            (set-buffer (if diary-buffer
-                            diary-buffer
-                         (find-file-noselect d-file t))))
+	    (if (not diary-buffer)
+		(set-buffer (find-file-noselect d-file t))
+	      (set-buffer diary-buffer)
+	      (or (verify-visited-file-modtime diary-buffer)
+		  (revert-buffer t t))))
           (setq selective-display t)
           (setq selective-display-ellipses nil)
           (setq old-diary-syntax-table (syntax-table))