Mercurial > emacs
changeset 12059:b6f64c954ce9
New function to create (but not fill) the fancy diary buffer.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Fri, 02 Jun 1995 14:44:34 +0000 |
| parents | 24c19691068e |
| children | b163768a998f |
| files | lisp/=diary-lib.el |
| diffstat | 1 files changed, 13 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.