Mercurial > emacs

diff lisp/time.el @ 24693:7d78745d1195

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
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)