diff options
author | Gerd Moellmann <[email protected]> | 2000-04-13 19:12:54 +0000 |
---|---|---|
committer | Gerd Moellmann <[email protected]> | 2000-04-13 19:12:54 +0000 |
commit | 8b43185594f29388f24dc309888e5a07d36e668c (patch) | |
tree | 1dadac6cd285d81d95b4e1f46e44552c9d4c2f4d /lisp/calendar/diary-lib.el | |
parent | aa455f0b87f4c1a5ba7b7f7b6d2352938f420bb4 (diff) |
(include-other-diary-files): Fix the fix of
2000-02-18 by doing a save-excursion.
Diffstat (limited to 'lisp/calendar/diary-lib.el')
-rw-r--r-- | lisp/calendar/diary-lib.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 4fdebb81e1..184acb3176 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el @@ -383,10 +383,11 @@ changing the variable `diary-include-string'." (setq diary-entries-list (append diary-entries-list (list-diary-entries original-date number))) - (set-buffer (find-buffer-visiting diary-file)) - (subst-char-in-region (point-min) (point-max) ?\^M ?\n t) - (setq selective-display nil) - (set-buffer-modified-p diary-modified)) + (save-excursion + (set-buffer (find-buffer-visiting diary-file)) + (subst-char-in-region (point-min) (point-max) ?\^M ?\n t) + (setq selective-display nil) + (set-buffer-modified-p diary-modified))) (beep) (message "Can't read included diary file %s" diary-file) (sleep-for 2)) |