Mercurial > emacs
comparison lisp/calendar/appt.el @ 957:2619b7a9c11e
entered into RCS
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 12 Aug 1992 12:50:10 +0000 |
| parents | 587a08c3a70b |
| children | c7badee38b64 |
comparison
equal
deleted
inserted
replaced
| 956:c530dbc9a92a | 957:2619b7a9c11e |
|---|---|
| 105 ;;; It is invoked from the function list-diary-entries. | 105 ;;; It is invoked from the function list-diary-entries. |
| 106 ;;; | 106 ;;; |
| 107 | 107 |
| 108 ;;; Code: | 108 ;;; Code: |
| 109 | 109 |
| 110 ;;;###autoload | |
| 110 (defvar appt-issue-message t | 111 (defvar appt-issue-message t |
| 111 "*Non-nil means check for appointments in the diary buffer. | 112 "*Non-nil means check for appointments in the diary buffer. |
| 112 To be detected, the diary entry must have the time | 113 To be detected, the diary entry must have the time |
| 113 as the first thing on a line.") | 114 as the first thing on a line.") |
| 114 | 115 |
| 116 ;;;###autoload | |
| 115 (defvar appt-message-warning-time 10 | 117 (defvar appt-message-warning-time 10 |
| 116 "*Time in minutes before an appointment that the warning begins.") | 118 "*Time in minutes before an appointment that the warning begins.") |
| 117 | 119 |
| 120 ;;;###autoload | |
| 118 (defvar appt-audible t | 121 (defvar appt-audible t |
| 119 "*Non-nil means beep to indicate appointment.") | 122 "*Non-nil means beep to indicate appointment.") |
| 120 | 123 |
| 124 ;;;###autoload | |
| 121 (defvar appt-visible t | 125 (defvar appt-visible t |
| 122 "*Non-nil means display appointment message in echo area.") | 126 "*Non-nil means display appointment message in echo area.") |
| 123 | 127 |
| 128 ;;;###autoload | |
| 124 (defvar appt-display-mode-line t | 129 (defvar appt-display-mode-line t |
| 125 "*Non-nil means display minutes to appointment and time on the mode line.") | 130 "*Non-nil means display minutes to appointment and time on the mode line.") |
| 126 | 131 |
| 132 ;;;###autoload | |
| 127 (defvar appt-msg-window t | 133 (defvar appt-msg-window t |
| 128 "*Non-nil means display appointment message in another window.") | 134 "*Non-nil means display appointment message in another window.") |
| 129 | 135 |
| 136 ;;;###autoload | |
| 130 (defvar appt-display-duration 5 | 137 (defvar appt-display-duration 5 |
| 131 "*The number of seconds an appointment message is displayed.") | 138 "*The number of seconds an appointment message is displayed.") |
| 132 | 139 |
| 140 ;;;###autoload | |
| 133 (defvar appt-display-diary t | 141 (defvar appt-display-diary t |
| 134 "*Non-nil means to display the next days diary on the screen. | 142 "*Non-nil means to display the next days diary on the screen. |
| 135 This will occur at midnight when the appointment list is updated.") | 143 This will occur at midnight when the appointment list is updated.") |
| 136 | 144 |
| 137 (defvar appt-time-msg-list nil | 145 (defvar appt-time-msg-list nil |