(list-diary-entries): Reread the diary file if it has changed.

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 175568264a37f602626fcbb19d95de02d8079f59..875cc2ae840232d8f66a72afc70a5950b5935d62 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -239,9 +239,11 @@ These hooks have the following distinct roles:
         (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))