Mercurial > emacs

diff lisp/calendar/cal-dst.el @ 74870:06cc5e77c85a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-dst-starts): Default to second Sunday in March. (calendar-dst-ends): Default to first Sunday in November.
author Richard M. Stallman <rms@gnu.org>
date Sun, 24 Dec 2006 02:58:41 +0000
parents cfa3c02ad6bf
children 07a95dc49e5a
line wrap: on
line diff
--- a/lisp/calendar/cal-dst.el	Sun Dec 24 01:50:17 2006 +0000
+++ b/lisp/calendar/cal-dst.el	Sun Dec 24 02:58:41 2006 +0000
@@ -53,7 +53,8 @@
   :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 @@
                     (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 @@
                     (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