Mercurial > emacs
comparison lisp/calendar/diary-lib.el @ 24760:079175ba0db7
(diary-mail-entries): Use fancy-diary-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 22 May 1999 19:53:39 +0000 |
| parents | cca41b0e7ae7 |
| children | acad42cf5361 |
comparison
equal
deleted
inserted
replaced
| 24759:a03aa24489bd | 24760:079175ba0db7 |
|---|---|
| 628 (diary-display-hook 'fancy-diary-display)) | 628 (diary-display-hook 'fancy-diary-display)) |
| 629 (if (not current-prefix-arg) | 629 (if (not current-prefix-arg) |
| 630 (setq ndays diary-mail-days)) | 630 (setq ndays diary-mail-days)) |
| 631 (calendar) | 631 (calendar) |
| 632 (view-diary-entries ndays) | 632 (view-diary-entries ndays) |
| 633 (set-buffer "*Fancy Diary Entries*") | 633 (set-buffer fancy-diary-buffer) |
| 634 (setq text (buffer-substring (point-min) (point-max))) | 634 (setq text (buffer-substring (point-min) (point-max))) |
| 635 | 635 |
| 636 ;; Now send text as a mail message. | 636 ;; Now send text as a mail message. |
| 637 (mail) | 637 (mail) |
| 638 (mail-to) | 638 (mail-to) |