(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 4fdebb81e1293bc28ca3ae79dfba83ef2c222e42..184acb31767f8664a4f9a6a5ebfad613bc941c65 100644 (file)
--- 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))