Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 70635:dcac2668b45d
(include-other-diary-files, diary-mail-entries): Refer to
diary-view-entries, diary-list-entries, diary-show-all-entries rather
than obsolete aliases.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 13 May 2006 06:12:10 +0000 |
| parents | 2febbeb39125 |
| children | 27c11738a0c4 a5812696f7bf |
comparison
equal
deleted
inserted
replaced
| 70634:516e75189437 | 70635:dcac2668b45d |
|---|---|
| 515 (if (file-exists-p diary-file) | 515 (if (file-exists-p diary-file) |
| 516 (if (file-readable-p diary-file) | 516 (if (file-readable-p diary-file) |
| 517 (unwind-protect | 517 (unwind-protect |
| 518 (setq diary-entries-list | 518 (setq diary-entries-list |
| 519 (append diary-entries-list | 519 (append diary-entries-list |
| 520 (list-diary-entries original-date number))) | 520 (diary-list-entries original-date number))) |
| 521 (with-current-buffer (find-buffer-visiting diary-file) | 521 (with-current-buffer (find-buffer-visiting diary-file) |
| 522 (diary-unhide-everything))) | 522 (diary-unhide-everything))) |
| 523 (beep) | 523 (beep) |
| 524 (message "Can't read included diary file %s" diary-file) | 524 (message "Can't read included diary file %s" diary-file) |
| 525 (sleep-for 2)) | 525 (sleep-for 2)) |
| 818 to run it every morning at 1am." | 818 to run it every morning at 1am." |
| 819 (interactive "P") | 819 (interactive "P") |
| 820 (if (string-equal diary-mail-addr "") | 820 (if (string-equal diary-mail-addr "") |
| 821 (error "You must set `diary-mail-addr' to use this command") | 821 (error "You must set `diary-mail-addr' to use this command") |
| 822 (let ((diary-display-hook 'fancy-diary-display)) | 822 (let ((diary-display-hook 'fancy-diary-display)) |
| 823 (list-diary-entries (calendar-current-date) (or ndays diary-mail-days))) | 823 (diary-list-entries (calendar-current-date) (or ndays diary-mail-days))) |
| 824 (compose-mail diary-mail-addr | 824 (compose-mail diary-mail-addr |
| 825 (concat "Diary entries generated " | 825 (concat "Diary entries generated " |
| 826 (calendar-date-string (calendar-current-date)))) | 826 (calendar-date-string (calendar-current-date)))) |
| 827 (insert | 827 (insert |
| 828 (if (get-buffer fancy-diary-buffer) | 828 (if (get-buffer fancy-diary-buffer) |