Mercurial > emacs

comparison lisp/time.el @ 9581:a035cc3716a1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(display-time-filter): Ignore mail-spool-file if not string.
author Richard M. Stallman <rms@gnu.org>
date Tue, 18 Oct 1994 02:39:40 +0000
parents 0e668dd3f120
children dad32dba58bf
comparison
equal deleted inserted replaced
9580:bcc9342cf633 9581:a035cc3716a1
27 27
28 ;;; Code: 28 ;;; Code:
29 29
30 (defvar display-time-mail-file nil 30 (defvar display-time-mail-file nil
31 "*File name of mail inbox file, for indicating existence of new mail. 31 "*File name of mail inbox file, for indicating existence of new mail.
32 Default is system-dependent, and is the same as used by Rmail.") 32 Non-nil and not a string means don't check for mail. nil means use
33 default, which is system-dependent, and is the same as used by Rmail.")
33 34
34 ;;;###autoload 35 ;;;###autoload
35 (defvar display-time-day-and-date nil "\ 36 (defvar display-time-day-and-date nil "\
36 *Non-nil means \\[display-time] should display day and date as well as time.") 37 *Non-nil means \\[display-time] should display day and date as well as time.")
37 38
125 (error ""))) 126 (error "")))
126 (mail-spool-file (or display-time-mail-file 127 (mail-spool-file (or display-time-mail-file
127 (getenv "MAIL") 128 (getenv "MAIL")
128 (concat rmail-spool-directory 129 (concat rmail-spool-directory
129 (user-login-name)))) 130 (user-login-name))))
130 (mail (and (or (null display-time-server-down-time) 131 (mail (and (stringp mail-spool-file)
132 (or (null display-time-server-down-time)
131 ;; If have been down for 20 min, try again. 133 ;; If have been down for 20 min, try again.
132 (> (- (nth 1 (current-time)) 134 (> (- (nth 1 (current-time))
133 display-time-server-down-time) 135 display-time-server-down-time)
134 1200)) 136 1200))
135 (let ((start-time (current-time))) 137 (let ((start-time (current-time)))