mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

New function to create (but not fill) the fancy diary buffer.

Browse Source
This commit is contained in:
Edward M. Reingold 1995-06-02 14:44:34 +00:00
parent 4288965cef
commit b7c49febb0
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/diary-lib.el
View File

@ -357,11 +357,8 @@ This function is provided for optional use as the `diary-display-hook'."
(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 @@ This function is provided for optional use as the `diary-display-hook'."
(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.