emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/calendar/cal-dst.el,v


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/calendar/cal-dst.el,v
Date: Sat, 15 Mar 2008 02:58:24 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/03/15 02:58:24

Index: cal-dst.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-dst.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- cal-dst.el  14 Mar 2008 03:38:16 -0000      1.38
+++ cal-dst.el  15 Mar 2008 02:58:24 -0000      1.39
@@ -143,8 +143,8 @@
   "Return the time of the next time zone transition after TIME.
 Both TIME and the result are acceptable arguments to `current-time-zone'.
 Return nil if no such transition can be found."
-  (let* ((base 65536)           ;; 2^16 = base of current-time output
-         (quarter-multiple 120) ;; approx = (seconds per quarter year) / base
+  (let* ((base 65536)           ; 2^16 = base of current-time output
+         (quarter-multiple 120) ; approx = (seconds per quarter year) / base
          (time-zone (current-time-zone time))
          (time-utc-diff (car time-zone))
          hi
@@ -221,7 +221,7 @@
                '((calendar-gregorian-from-absolute
                   (calendar-absolute-from-persian
                    (list 7 1 (- year 621))))))))
-         (prevday-sec (- -1 utc-diff)) ;; last sec of previous local day
+         (prevday-sec (- -1 utc-diff)) ; last sec of previous local day
          (year (1+ y)))
     ;; Scan through the next few years until only one rule remains.
     (while (let ((rules candidate-rules)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]