# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 951400056 0
# Node ID cfa579c1229f086eb653c9b3de17a0db6a0b4083
# Parent  d3dca8568200aa7c2e113a7186cbe21773788646
(include-other-diary-files): Undo the selective
display in any included file and don't kill it.

diff -r d3dca8568200 -r cfa579c1229f lisp/calendar/diary-lib.el
--- a/lisp/calendar/diary-lib.el	Thu Feb 24 12:59:48 2000 +0000
+++ b/lisp/calendar/diary-lib.el	Thu Feb 24 13:47:36 2000 +0000
@@ -363,20 +363,28 @@
            (regexp-quote diary-include-string)
            " \"\\([^\"]*\\)\"")
           nil t)
-    (let ((diary-file (substitute-in-file-name
-                       (buffer-substring-no-properties
-                        (match-beginning 2) (match-end 2))))
-          (diary-list-include-blanks nil)
-          (list-diary-entries-hook 'include-other-diary-files)
-          (diary-display-hook 'ignore)
-          (diary-hook nil))
+    (let* ((diary-file (substitute-in-file-name
+                        (buffer-substring-no-properties
+                         (match-beginning 2) (match-end 2))))
+           (diary-list-include-blanks nil)
+           (list-diary-entries-hook 'include-other-diary-files)
+           (diary-display-hook 'ignore)
+           (diary-hook nil)
+           (d-buffer (find-buffer-visiting diary-file))
+           (diary-modified (if d-buffer
+                               (save-excursion
+                                 (set-buffer d-buffer)
+                                 (buffer-modified-p)))))
       (if (file-exists-p diary-file)
           (if (file-readable-p diary-file)
               (unwind-protect
                   (setq diary-entries-list
                         (append diary-entries-list
                                 (list-diary-entries original-date number)))
-                (kill-buffer (find-buffer-visiting diary-file)))
+                (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))