Commit 73e19344 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(include-other-diary-files): Allow modifying

included buffer, to turn off selective display.
parent c9787897
...@@ -385,7 +385,8 @@ changing the variable `diary-include-string'." ...@@ -385,7 +385,8 @@ changing the variable `diary-include-string'."
(list-diary-entries original-date number))) (list-diary-entries original-date number)))
(save-excursion (save-excursion
(set-buffer (find-buffer-visiting diary-file)) (set-buffer (find-buffer-visiting diary-file))
(subst-char-in-region (point-min) (point-max) ?\^M ?\n t) (let ((inhibit-read-only t))
(subst-char-in-region (point-min) (point-max) ?\^M ?\n t))
(setq selective-display nil) (setq selective-display nil)
(set-buffer-modified-p diary-modified))) (set-buffer-modified-p diary-modified)))
(beep) (beep)
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