From 8b43185594f29388f24dc309888e5a07d36e668c Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 13 Apr 2000 19:12:54 +0000 Subject: [PATCH] (include-other-diary-files): Fix the fix of 2000-02-18 by doing a save-excursion. --- lisp/calendar/diary-lib.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 4fdebb81e12..184acb31767 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)) -- 2.39.5