diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-12-24 02:58:41 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-12-24 02:58:41 +0000 |
| commit | ed589f9aa29fc19ec15c9900aa5c77b6a6c9614d (patch) | |
| tree | ff204f17622d21d1e816c0502d6b6534996ba852 /lisp/calendar/cal-dst.el | |
| parent | be064bc4bf89e8789a4ba72e6606cf12f97af93c (diff) | |
| download | emacs-ed589f9aa29fc19ec15c9900aa5c77b6a6c9614d.tar.gz | |
(calendar-dst-starts): Default to second Sunday in March.
(calendar-dst-ends): Default to first Sunday in November.
Diffstat (limited to 'lisp/calendar/cal-dst.el')
| -rw-r--r-- | lisp/calendar/cal-dst.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el index aed4c32e3db..2f7e4ac88fd 100644 --- a/lisp/calendar/cal-dst.el +++ b/lisp/calendar/cal-dst.el @@ -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 |