Mercurial > emacs

changeset 28575:dc6ae1a1331c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(include-other-diary-files): Fix the fix of 2000-02-18 by doing a save-excursion.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 13 Apr 2000 19:12:54 +0000
parents 23e11bfcfc21
children 1694ed739e69
files lisp/calendar/diary-lib.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))