mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-10 09:12:15 +00:00
Code Issues Releases Activity

Formatting changes only.

Browse Source
This commit is contained in:
Glenn Morris 2008-03-15 02:58:24 +00:00
parent 071f8d93af
commit fd32e5b926
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/calendar/cal-dst.el
View File

@ -143,8 +143,8 @@ midnight UTC on absolute date ABS-DATE."
"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 @@ The result has the proper form for `calendar-daylight-savings-starts'."
'((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)