From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 13 Apr 2000 19:12:54 +0000 (+0000)
Subject: (include-other-diary-files): Fix the fix of
X-Git-Tag: emacs-pretest-21.0.90~4263
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8b43185594f29388f24dc309888e5a07d36e668c;p=emacs.git

(include-other-diary-files): Fix the fix of
2000-02-18 by doing a save-excursion.
---

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))