Mercurial > emacs
changeset 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 | a0a2521b783d |
| children | acea52613a04 |
| files | lisp/time.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/time.el Tue May 04 08:57:08 1999 +0000 +++ b/lisp/time.el Tue May 04 17:34:36 1999 +0000 @@ -213,9 +213,11 @@ (mail (and (stringp mail-spool-file) (or (null display-time-server-down-time) ;; If have been down for 20 min, try again. - (> (- (nth 1 (current-time)) - display-time-server-down-time) - 1200)) + (> (- (nth 1 now) display-time-server-down-time) + 1200) + (and (< (nth 1 now) display-time-server-down-time) + (> (- (nth 1 now) display-time-server-down-time) + -64336))) (let ((start-time (current-time))) (prog1 (display-time-file-nonempty-p mail-spool-file)