Lines Matching +defs:message +defs:mode
84 (defcustom appt-issue-message t
91 (make-obsolete-variable 'appt-issue-message
96 (defcustom appt-message-warning-time 12
109 "*Non-nil means display appointment message in echo area.
118 "*Non-nil means display appointment message in another window.
132 See also `appt-audible' and `appt-display-mode-line'.
146 (defcustom appt-display-mode-line t
147 "*Non-nil means display minutes to appointment and time on the mode line.
154 "*The number of seconds an appointment message is displayed.
205 (defvar appt-mode-string nil
206 "String being displayed in the mode line saying you have an appointment.
208 Only used if `appt-display-mode-line' is non-nil.")
227 (defun appt-display-message (string mins)
250 (message "%s" string)))
280 `appt-message-warning-time'
281 Variable used to determine when appointment message
284 `appt-display-mode-line'
285 If non-nil, a generic message giving the time remaining
286 is shown in the mode-line when an appointment is due.
299 The number of seconds an appointment message is displayed.
308 (prev-appt-mode-string appt-mode-string)
318 ;; Non-nil means only update the interval displayed in the mode line.
319 (mode-line-only
322 (when (or full-check mode-line-only)
366 appt-mode-string nil
370 ;; user wants a message issued,
374 (if (and appt-issue-message appt-time-msg-list)
386 ;; 'appt-message-warning-time' minutes after midnight,
387 ;; we must begin to issue a message before midnight.
394 (if (and (< appt-comp-time appt-message-warning-time)
395 (> (+ cur-comp-time appt-message-warning-time)
401 ;; within appt-message-warning time
403 (when (and (<= min-to-app appt-message-warning-time)
407 (unless mode-line-only
408 (appt-display-message (cadr (car appt-time-msg-list))
410 (when appt-display-mode-line
411 (setq appt-mode-string
422 ;; If we have changed the mode line string,
423 ;; redisplay all mode lines.
424 (and appt-display-mode-line
425 (not (equal appt-mode-string
426 prev-appt-mode-string))
428 (force-mode-line-update t)
431 (if appt-mode-string
436 "Display appointment message APPT-MSG in a separate buffer.
464 (calendar-set-mode-line
500 "Add an appointment for today at NEW-APPT-TIME with message NEW-APPT-MSG.
531 (message "")))
682 ;; the top-level that set up the appt-timer and global-mode-string.
707 (or global-mode-string (setq global-mode-string '("")))
708 (delq 'appt-mode-string global-mode-string)
715 global-mode-string
716 (append global-mode-string '(appt-mode-string)))