aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-08-04 23:02:10 +0000
committerRichard M. Stallman1993-08-04 23:02:10 +0000
commit34fa2dc2e5f4138059f305483f8cbcb20349c422 (patch)
tree5dbe9b9b0ffc363ef969af2cbbece0ce02da6568
parent6e72e7952da3f1b09e77d15ad0b64f9d6e9cb64f (diff)
downloademacs-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.el16
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.
379See the documentation of diary-date-forms for an explanation.") 379See 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.
419See the documentation of calendar-date-display-forms for an explanation.") 418See 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
497lexicographic order.") 495lexicographic 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.
500Can 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.
505If nil (the default), `simple-diary-display' will be used. Use `ignore' for no
506diary display.
502 507
503Ordinarily, this just displays the diary buffer (with holidays indicated in 508Ordinarily, this just displays the diary buffer (with holidays indicated in
504the mode line), if there are any relevant entries. At the time these 509the mode line), if there are any relevant entries. At the time these
505functions are called, the variable `diary-entries-list' is a list, in order 510functions are called, the variable `diary-entries-list' is a list, in order
506by date, of all relevant diary entries in the form of ((MONTH DAY YEAR) 511by date, of all relevant diary entries in the form of ((MONTH DAY YEAR)
507STRING), where string is the diary entry for the given date. This can be 512STRING), where string is the diary entry for the given date. This can be
508used, for example, to handle appointment notification, prepare a different 513used, for example, a different buffer for display (perhaps combined with
509buffer for display (perhaps combined with holidays), or produce hard copy 514holidays), or produce hard copy output.
510output.
511 515
512A function `fancy-diary-display' is provided as an alternative 516A function `fancy-diary-display' is provided as an alternative
513choice for this hook; this function prepares a special noneditable diary 517choice for this hook; this function prepares a special noneditable diary