comparison lisp/time.el @ 24693:7d78745d1195

(display-time-update): Allow for wrap-around when checking against display-time-server-down-time.
author Andrew Innes <andrewi@gnu.org>
date Tue, 04 May 1999 17:34:36 +0000
parents bbed99edbecc
children 464b296e0b87
comparison
equal deleted inserted replaced
24692:a0a2521b783d 24693:7d78745d1195
211 (concat rmail-spool-directory 211 (concat rmail-spool-directory
212 (user-login-name)))) 212 (user-login-name))))
213 (mail (and (stringp mail-spool-file) 213 (mail (and (stringp mail-spool-file)
214 (or (null display-time-server-down-time) 214 (or (null display-time-server-down-time)
215 ;; If have been down for 20 min, try again. 215 ;; If have been down for 20 min, try again.
216 (> (- (nth 1 (current-time)) 216 (> (- (nth 1 now) display-time-server-down-time)
217 display-time-server-down-time) 217 1200)
218 1200)) 218 (and (< (nth 1 now) display-time-server-down-time)
219 (> (- (nth 1 now) display-time-server-down-time)
220 -64336)))
219 (let ((start-time (current-time))) 221 (let ((start-time (current-time)))
220 (prog1 222 (prog1
221 (display-time-file-nonempty-p mail-spool-file) 223 (display-time-file-nonempty-p mail-spool-file)
222 (if (> (- (nth 1 (current-time)) (nth 1 start-time)) 224 (if (> (- (nth 1 (current-time)) (nth 1 start-time))
223 20) 225 20)