diff options
| author | Richard M. Stallman | 1993-08-04 23:02:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-08-04 23:02:10 +0000 |
| commit | 34fa2dc2e5f4138059f305483f8cbcb20349c422 (patch) | |
| tree | 5dbe9b9b0ffc363ef969af2cbbece0ce02da6568 | |
| parent | 6e72e7952da3f1b09e77d15ad0b64f9d6e9cb64f (diff) | |
| download | emacs-34fa2dc2e5f4138059f305483f8cbcb20349c422.tar.gz emacs-34fa2dc2e5f4138059f305483f8cbcb20349c422.zip | |
(diary-display-hook): Change default and fix doc string.
(diary-hook): New user variable.
(diary-date-forms, calendar-date-display-form): Don't autoload
them so the European/American style is decided at load time.
| -rw-r--r-- | lisp/calendar/calendar.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index c5ab078a0e6..fbbe25b1dfd 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -378,7 +378,6 @@ See the documentation of diary-date-forms for an explanation.") | |||
| 378 | "*List of pseudo-patterns describing the European patterns of date used. | 378 | "*List of pseudo-patterns describing the European patterns of date used. |
| 379 | See the documentation of diary-date-forms for an explanation.") | 379 | See the documentation of diary-date-forms for an explanation.") |
| 380 | 380 | ||
| 381 | ;;;###autoload | ||
| 382 | (defvar diary-date-forms | 381 | (defvar diary-date-forms |
| 383 | (if european-calendar-style | 382 | (if european-calendar-style |
| 384 | european-date-diary-pattern | 383 | european-date-diary-pattern |
| @@ -418,7 +417,6 @@ See the documentation of calendar-date-display-forms for an explanation.") | |||
| 418 | "*Pseudo-pattern governing the way a date appears in the American style. | 417 | "*Pseudo-pattern governing the way a date appears in the American style. |
| 419 | See the documentation of calendar-date-display-forms for an explanation.") | 418 | See the documentation of calendar-date-display-forms for an explanation.") |
| 420 | 419 | ||
| 421 | ;;;###autoload | ||
| 422 | (defvar calendar-date-display-form | 420 | (defvar calendar-date-display-form |
| 423 | (if european-calendar-style | 421 | (if european-calendar-style |
| 424 | european-calendar-display-form | 422 | european-calendar-display-form |
| @@ -497,17 +495,23 @@ diary entries from various included files, each day's entries sorted into | |||
| 497 | lexicographic order.") | 495 | lexicographic order.") |
| 498 | 496 | ||
| 499 | ;;;###autoload | 497 | ;;;###autoload |
| 500 | (defvar diary-display-hook 'simple-diary-display | 498 | (defvar diary-hook nil |
| 499 | "*List of functions called after the display of the diary. | ||
| 500 | Can be used for appointment notification.") | ||
| 501 | |||
| 502 | ;;;###autoload | ||
| 503 | (defvar diary-display-hook nil | ||
| 501 | "*List of functions that handle the display of the diary. | 504 | "*List of functions that handle the display of the diary. |
| 505 | If nil (the default), `simple-diary-display' will be used. Use `ignore' for no | ||
| 506 | diary display. | ||
| 502 | 507 | ||
| 503 | Ordinarily, this just displays the diary buffer (with holidays indicated in | 508 | Ordinarily, this just displays the diary buffer (with holidays indicated in |
| 504 | the mode line), if there are any relevant entries. At the time these | 509 | the mode line), if there are any relevant entries. At the time these |
| 505 | functions are called, the variable `diary-entries-list' is a list, in order | 510 | functions are called, the variable `diary-entries-list' is a list, in order |
| 506 | by date, of all relevant diary entries in the form of ((MONTH DAY YEAR) | 511 | by date, of all relevant diary entries in the form of ((MONTH DAY YEAR) |
| 507 | STRING), where string is the diary entry for the given date. This can be | 512 | STRING), where string is the diary entry for the given date. This can be |
| 508 | used, for example, to handle appointment notification, prepare a different | 513 | used, for example, a different buffer for display (perhaps combined with |
| 509 | buffer for display (perhaps combined with holidays), or produce hard copy | 514 | holidays), or produce hard copy output. |
| 510 | output. | ||
| 511 | 515 | ||
| 512 | A function `fancy-diary-display' is provided as an alternative | 516 | A function `fancy-diary-display' is provided as an alternative |
| 513 | choice for this hook; this function prepares a special noneditable diary | 517 | choice for this hook; this function prepares a special noneditable diary |