Mercurial > emacs
comparison lisp/=diary-lib.el @ 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 | 787ae425ae22 |
| children |
comparison
equal
deleted
inserted
replaced
| 12058:24c19691068e | 12059:b6f64c954ce9 |
|---|---|
| 355 (set-buffer-modified-p nil) | 355 (set-buffer-modified-p nil) |
| 356 (setq buffer-read-only t) | 356 (setq buffer-read-only t) |
| 357 (display-buffer holiday-buffer) | 357 (display-buffer holiday-buffer) |
| 358 (message "No diary entries for %s" date-string))) | 358 (message "No diary entries for %s" date-string))) |
| 359 (save-excursion;; Prepare the fancy diary buffer. | 359 (save-excursion;; Prepare the fancy diary buffer. |
| 360 (set-buffer (get-buffer-create fancy-diary-buffer)) | 360 (set-buffer (make-fancy-diary-buffer)) |
| 361 (setq buffer-read-only nil) | 361 (setq buffer-read-only nil) |
| 362 (make-local-variable 'mode-line-format) | |
| 363 (calendar-set-mode-line "Diary Entries") | |
| 364 (erase-buffer) | |
| 365 (let ((entry-list diary-entries-list) | 362 (let ((entry-list diary-entries-list) |
| 366 (holiday-list) | 363 (holiday-list) |
| 367 (holiday-list-last-month 1) | 364 (holiday-list-last-month 1) |
| 368 (holiday-list-last-year 1) | 365 (holiday-list-last-year 1) |
| 369 (date (list 0 0 0))) | 366 (date (list 0 0 0))) |
| 415 (set-buffer-modified-p nil) | 412 (set-buffer-modified-p nil) |
| 416 (goto-char (point-min)) | 413 (goto-char (point-min)) |
| 417 (setq buffer-read-only t) | 414 (setq buffer-read-only t) |
| 418 (display-buffer fancy-diary-buffer) | 415 (display-buffer fancy-diary-buffer) |
| 419 (message "Preparing diary...done")))) | 416 (message "Preparing diary...done")))) |
| 417 | |
| 418 (defun make-fancy-diary-buffer () | |
| 419 "Create and return the initial fancy diary buffer." | |
| 420 (save-excursion | |
| 421 (set-buffer (get-buffer-create fancy-diary-buffer)) | |
| 422 (setq buffer-read-only nil) | |
| 423 (make-local-variable 'mode-line-format) | |
| 424 (calendar-set-mode-line "Diary Entries") | |
| 425 (erase-buffer) | |
| 426 (set-buffer-modified-p nil) | |
| 427 (setq buffer-read-only t) | |
| 428 (get-buffer fancy-diary-buffer))) | |
| 420 | 429 |
| 421 (defun print-diary-entries () | 430 (defun print-diary-entries () |
| 422 "Print a hard copy of the diary display. | 431 "Print a hard copy of the diary display. |
| 423 | 432 |
| 424 If the simple diary display is being used, prepare a temp buffer with the | 433 If the simple diary display is being used, prepare a temp buffer with the |