changeset 92965:8a8f8559d11d

Formatting changes only.
author Glenn Morris <rgm@gnu.org>
date Sat, 15 Mar 2008 02:58:24 +0000
parents 943c6058b43a
children 446f7aee7bf1
files lisp/calendar/cal-dst.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-dst.el	Sat Mar 15 02:57:58 2008 +0000
+++ b/lisp/calendar/cal-dst.el	Sat Mar 15 02:58:24 2008 +0000
@@ -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)