Mercurial > emacs
diff lisp/calendar/diary-lib.el @ 16545:ff25eb6a7d11
(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 | ab5975df6164 |
children | 68cce262538d |
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))