mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(calendar-dst-starts): Default to second Sunday in March.

Browse Source 
(calendar-dst-ends): Default to first Sunday in November.
This commit is contained in:
Richard M. Stallman 2006-12-24 02:58:41 +00:00
parent be064bc4bf
commit ed589f9aa2
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -53,7 +53,8 @@ change."
:group 'calendar)
(defvar calendar-current-time-zone-cache nil
"Cache for result of calendar-current-time-zone.")
"Cache for result of `calendar-current-time-zone'.")
(put 'calendar-current-time-zone-cache 'risky-local-variable t)
(defvar calendar-system-time-basis
(calendar-absolute-from-gregorian '(1 1 1970))
@ -346,7 +347,7 @@ This function respects the value of `calendar-dst-check-each-year-flag'."
(nth 4 calendar-current-time-zone-cache))))
(if expr (eval expr)))
(and (not (zerop calendar-daylight-time-offset))
(calendar-nth-named-day 1 0 4 year))))
(calendar-nth-named-day 2 0 3 year))))
(defun calendar-dst-ends (year)
"Return the date of YEAR on which Daylight Saving Time ends.
@ -356,7 +357,7 @@ This function respects the value of `calendar-dst-check-each-year-flag'."
(nth 5 calendar-current-time-zone-cache))))
(if expr (eval expr)))
(and (not (zerop calendar-daylight-time-offset))
(calendar-nth-named-day -1 0 10 year))))
(calendar-nth-named-day 1 0 11 year))))
;;;###autoload