# HG changeset patch
# User Edward M. Reingold <reingold@emr.cs.iit.edu>
# Date 802104274 0
# Node ID b6f64c954ce93410749e80e0c3495e3cf58c8e6a
# Parent  24c19691068ed7255a012a26891c6e3c2ce7d6d7
New function to create (but not fill) the fancy diary buffer.

diff -r 24c19691068e -r b6f64c954ce9 lisp/=diary-lib.el
--- a/lisp/=diary-lib.el	Fri Jun 02 07:42:12 1995 +0000
+++ b/lisp/=diary-lib.el	Fri Jun 02 14:44:34 1995 +0000
@@ -357,11 +357,8 @@
           (display-buffer holiday-buffer)
           (message  "No diary entries for %s" date-string)))
     (save-excursion;; Prepare the fancy diary buffer.
-      (set-buffer (get-buffer-create fancy-diary-buffer))
+      (set-buffer (make-fancy-diary-buffer))
       (setq buffer-read-only nil)
-      (make-local-variable 'mode-line-format)
-      (calendar-set-mode-line "Diary Entries")
-      (erase-buffer)
       (let ((entry-list diary-entries-list)
             (holiday-list)
             (holiday-list-last-month 1)
@@ -418,6 +415,18 @@
       (display-buffer fancy-diary-buffer)
       (message "Preparing diary...done"))))
 
+(defun make-fancy-diary-buffer ()
+  "Create and return the initial fancy diary buffer."
+  (save-excursion
+    (set-buffer (get-buffer-create fancy-diary-buffer))
+    (setq buffer-read-only nil)
+    (make-local-variable 'mode-line-format)
+    (calendar-set-mode-line "Diary Entries")
+    (erase-buffer)
+    (set-buffer-modified-p nil)
+    (setq buffer-read-only t)
+    (get-buffer fancy-diary-buffer)))
+
 (defun print-diary-entries ()
   "Print a hard copy of the diary display.