# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 955653174 0
# Node ID dc6ae1a1331c57f96a69f7e176080122c41edd4a
# Parent  23e11bfcfc21c55cae907ddb199111e2e82dc0d9
(include-other-diary-files): Fix the fix of
2000-02-18 by doing a save-excursion.

diff -r 23e11bfcfc21 -r dc6ae1a1331c lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Thu Apr 13 19:12:13 2000 +0000
+++ b/lisp/calendar/diary-lib.el	Thu Apr 13 19:12:54 2000 +0000
@@ -383,10 +383,11 @@
                   (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))