aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/calendar/cal-dst.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el
index b2bc8c36d3a..f4512fa12ea 100644
--- a/lisp/calendar/cal-dst.el
+++ b/lisp/calendar/cal-dst.el
@@ -34,7 +34,6 @@
34;;; Code: 34;;; Code:
35 35
36(require 'calendar) 36(require 'calendar)
37(require 'cal-persia)
38 37
39 38
40(defgroup calendar-dst nil 39(defgroup calendar-dst nil
@@ -183,6 +182,8 @@ Return nil if no such transition can be found."
183 (setq lo probe))) 182 (setq lo probe)))
184 hi)))) 183 hi))))
185 184
185(autoload 'calendar-absolute-from-persian "cal-persia")
186
186(defun calendar-time-zone-daylight-rules (abs-date utc-diff) 187(defun calendar-time-zone-daylight-rules (abs-date utc-diff)
187 "Return daylight transition rule for ABS-DATE, UTC-DIFF sec offset from UTC. 188 "Return daylight transition rule for ABS-DATE, UTC-DIFF sec offset from UTC.
188ABS-DATE must specify a day that contains a daylight saving transition. 189ABS-DATE must specify a day that contains a daylight saving transition.
@@ -463,8 +464,7 @@ value is 'standard and daylight saving time (if available) when its value is
463Conversion to daylight saving time is done according to 464Conversion to daylight saving time is done according to
464`calendar-daylight-savings-starts', `calendar-daylight-savings-ends', 465`calendar-daylight-savings-starts', `calendar-daylight-savings-ends',
465`calendar-daylight-savings-starts-time', 466`calendar-daylight-savings-starts-time',
466`calendar-daylight-savings-ends-time', and 467`calendar-daylight-savings-ends-time', and `calendar-daylight-time-offset'."
467`calendar-daylight-savings-offset'."
468 468
469 (let* ((rounded-abs-date (+ (calendar-absolute-from-gregorian date) 469 (let* ((rounded-abs-date (+ (calendar-absolute-from-gregorian date)
470 (/ (round (* 60 time)) 60.0 24.0))) 470 (/ (round (* 60 time)) 60.0 24.0)))