Skip to content

GitLab

Commit 8b431855 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(include-other-diary-files): Fix the fix of 

2000-02-18 by doing a save-excursion.
parent aa455f0b
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 4 deletions
lisp/calendar/diary-lib.el
View file @ 8b431855
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment