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 |