[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-dst.el,v
From: |
Richard M. Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/cal-dst.el,v |
Date: |
Sun, 24 Dec 2006 02:58:41 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Richard M. Stallman <rms> 06/12/24 02:58:41
Index: cal-dst.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calendar/cal-dst.el,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -b -r1.26 -r1.27
--- cal-dst.el 10 Nov 2006 15:04:03 -0000 1.26
+++ cal-dst.el 24 Dec 2006 02:58:41 -0000 1.27
@@ -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
- [Emacs-diffs] Changes to emacs/lisp/calendar/cal-dst.el,v,
Richard M. Stallman <=