diff options
| author | Richard M. Stallman <[email protected]> | 1996-11-09 09:06:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1996-11-09 09:06:52 +0000 |
| commit | ca67b44e66e358f3d3324e61cb16c24a7c5097ea (patch) | |
| tree | 0b85cdf7a201d36b6c114d75a32f25e626446794 /lisp/calendar/diary-lib.el | |
| parent | 7e7c9c4eedf0bfc8cfec3d31a6056e2041e945b1 (diff) | |
(list-diary-entries): Reread the diary file if it has changed.
Diffstat (limited to 'lisp/calendar/diary-lib.el')
| -rw-r--r-- | lisp/calendar/diary-lib.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 175568264a..875cc2ae84 100644 --- 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)) |