Mercurial > emacs
comparison lisp/=diary-lib.el @ 584:4cd7543be581
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 16 Mar 1992 20:39:07 +0000 |
| parents | bd0533ed9b5a |
| children | 8a533acedb77 |
comparison
equal
deleted
inserted
replaced
| 583:3c0c1cd8428a | 584:4cd7543be581 |
|---|---|
| 26 ;; (217) 333-6733 University of Illinois at Urbana-Champaign | 26 ;; (217) 333-6733 University of Illinois at Urbana-Champaign |
| 27 ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue | 27 ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue |
| 28 ;; Urbana, Illinois 61801 | 28 ;; Urbana, Illinois 61801 |
| 29 | 29 |
| 30 (require 'calendar) | 30 (require 'calendar) |
| 31 (provide 'diary) | |
| 32 | |
| 33 (defun diary (&optional arg) | 31 (defun diary (&optional arg) |
| 34 "Generate the diary window for ARG days starting with the current date. | 32 "Generate the diary window for ARG days starting with the current date. |
| 35 If no argument is provided, the number of days of diary entries is governed | 33 If no argument is provided, the number of days of diary entries is governed |
| 36 by the variable `number-of-diary-entries'. This function is suitable for | 34 by the variable `number-of-diary-entries'. This function is suitable for |
| 37 execution in a .emacs file." | 35 execution in a .emacs file." |
| 2123 (calendar-islamic-from-absolute | 2121 (calendar-islamic-from-absolute |
| 2124 (calendar-absolute-from-gregorian | 2122 (calendar-absolute-from-gregorian |
| 2125 (or (calendar-cursor-to-date) | 2123 (or (calendar-cursor-to-date) |
| 2126 (error "Cursor is not on a date!")))))) | 2124 (error "Cursor is not on a date!")))))) |
| 2127 arg))) | 2125 arg))) |
| 2126 | |
| 2127 (provide 'diary) | |
| 2128 |