# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 847530412 0
# Node ID ff25eb6a7d112f33b8adcb9320da676744ede2b5
# Parent  9fffc9e5fc428f9cc292b78721bf2648e3735dda
(list-diary-entries): Reread the diary file if it has changed.

diff -r 9fffc9e5fc42 -r ff25eb6a7d11 lisp/calendar/diary-lib.el
--- 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))