annotate lisp/calendar/cal-dst.el @ 61570:4b5610d9b02e

(cp-make-coding-system): Set `translation-table-for-input' property value to the symbol ucs-mule-to-mule-unicode, not to that value. (pt154): Escape guillemet by `\'.
author Kenichi Handa <handa@m17n.org>
date Sat, 16 Apr 2005 01:31:29 +0000
parents 5572efece9a6
children 18a818a2ee7c 97905c4f1a42
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38422
7a94f1c588c4 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 16726
diff changeset
1 ;;; cal-dst.el --- calendar functions for daylight savings rules
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2
16726
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
3 ;; Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc.
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5 ;; Author: Paul Eggert <eggert@twinsun.com>
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 ;; Edward M. Reingold <reingold@cs.uiuc.edu>
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 ;; Keywords: calendar
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 ;; Human-Keywords: daylight savings time, calendar, diary, holidays
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 ;; This file is part of GNU Emacs.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
13 ;; it under the terms of the GNU General Public License as published by
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
14 ;; the Free Software Foundation; either version 2, or (at your option)
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
15 ;; any later version.
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
17 ;; GNU Emacs is distributed in the hope that it will be useful,
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
20 ;; GNU General Public License for more details.
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
21
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6735
diff changeset
22 ;; You should have received a copy of the GNU General Public License
14169
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13686
diff changeset
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13686
diff changeset
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
83f275dcd93a Update FSF's address.
Erik Naggum <erik@naggum.no>
parents: 13686
diff changeset
25 ;; Boston, MA 02111-1307, USA.
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27 ;;; Commentary:
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29 ;; This collection of functions implements the features of calendar.el and
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 ;; holiday.el that deal with daylight savings time.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 ;; Comments, corrections, and improvements should be sent to
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 ;; Edward M. Reingold Department of Computer Science
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 ;; (217) 333-6733 University of Illinois at Urbana-Champaign
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 ;; Urbana, Illinois 61801
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 ;;; Code:
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 (require 'calendar)
16726
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
41 (require 'cal-persia)
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 (defvar calendar-current-time-zone-cache nil
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44 "Cache for result of calendar-current-time-zone.")
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 (defvar calendar-system-time-basis
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47 (calendar-absolute-from-gregorian '(1 1 1970))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 "Absolute date of starting date of system clock.")
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 (defun calendar-absolute-from-time (x utc-diff)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 "Absolute local date of time X; local time is UTC-DIFF seconds from UTC.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 X is (HIGH . LOW) or (HIGH LOW . IGNORED) where HIGH and LOW are the
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 high and low 16 bits, respectively, of the number of seconds since
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 1970-01-01 00:00:00 UTC, ignoring leap seconds.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 Returns the pair (ABS-DATE . SECONDS) where SECONDS after local midnight on
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 absolute date ABS-DATE is the equivalent moment to X."
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 (let* ((h (car x))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 (xtail (cdr x))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 (l (+ utc-diff (if (numberp xtail) xtail (car xtail))))
4535
cf77def3abe2 Undo last change.
Roland McGrath <roland@gnu.org>
parents: 4534
diff changeset
62 (u (+ (* 512 (mod h 675)) (floor l 128))))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 ;; Overflow is a terrible thing!
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64 (cons (+ calendar-system-time-basis
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 ;; floor((2^16 h +l) / (60*60*24))
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
66 (* 512 (floor h 675)) (floor u 675))
5001
f3a55af8f584 (calendar-absolute-from-time): Undo Sep 14 patch.
Richard M. Stallman <rms@gnu.org>
parents: 4756
diff changeset
67 ;; (2^16 h +l) mod (60*60*24)
f3a55af8f584 (calendar-absolute-from-time): Undo Sep 14 patch.
Richard M. Stallman <rms@gnu.org>
parents: 4756
diff changeset
68 (+ (* (mod u 675) 128) (mod l 128)))))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 (defun calendar-time-from-absolute (abs-date s)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 "Time of absolute date ABS-DATE, S seconds after midnight.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72
56425
5572efece9a6 (calendar-time-from-absolute): Return a list of two integers, instead
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
73 Returns the list (HIGH LOW) where HIGH and LOW are the high and low
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 16 bits, respectively, of the number of seconds 1970-01-01 00:00:00 UTC,
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75 ignoring leap seconds, that is the equivalent moment to S seconds after
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 midnight UTC on absolute date ABS-DATE."
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 (let* ((a (- abs-date calendar-system-time-basis))
4535
cf77def3abe2 Undo last change.
Roland McGrath <roland@gnu.org>
parents: 4534
diff changeset
78 (u (+ (* 163 (mod a 512)) (floor s 128))))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 ;; Overflow is a terrible thing!
56425
5572efece9a6 (calendar-time-from-absolute): Return a list of two integers, instead
Luc Teirlinck <teirllm@auburn.edu>
parents: 52401
diff changeset
80 (list
5001
f3a55af8f584 (calendar-absolute-from-time): Undo Sep 14 patch.
Richard M. Stallman <rms@gnu.org>
parents: 4756
diff changeset
81 ;; floor((60*60*24*a + s) / 2^16)
4535
cf77def3abe2 Undo last change.
Roland McGrath <roland@gnu.org>
parents: 4534
diff changeset
82 (+ a (* 163 (floor a 512)) (floor u 512))
5001
f3a55af8f584 (calendar-absolute-from-time): Undo Sep 14 patch.
Richard M. Stallman <rms@gnu.org>
parents: 4756
diff changeset
83 ;; (60*60*24*a + s) mod 2^16
4535
cf77def3abe2 Undo last change.
Roland McGrath <roland@gnu.org>
parents: 4534
diff changeset
84 (+ (* 128 (mod u 512)) (mod s 128)))))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 (defun calendar-next-time-zone-transition (time)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 "Return the time of the next time zone transition after TIME.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 Both TIME and the result are acceptable arguments to current-time-zone.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 Return nil if no such transition can be found."
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 (let* ((base 65536);; 2^16 = base of current-time output
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 (quarter-multiple 120);; approx = (seconds per quarter year) / base
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 (time-zone (current-time-zone time))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 (time-utc-diff (car time-zone))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 hi
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 hi-zone
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96 (hi-utc-diff time-utc-diff)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 (quarters '(2 1 3)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 ;; Heuristic: probe the time zone offset in the next three calendar
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 ;; quarters, looking for a time zone offset different from TIME.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 (while (and quarters (eq time-utc-diff hi-utc-diff))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 (setq hi (cons (+ (car time) (* (car quarters) quarter-multiple)) 0))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 (setq hi-zone (current-time-zone hi))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 (setq hi-utc-diff (car hi-zone))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 (setq quarters (cdr quarters)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105 (and
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 time-utc-diff
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 hi-utc-diff
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 (not (eq time-utc-diff hi-utc-diff))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 ;; Now HI is after the next time zone transition.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110 ;; Set LO to TIME, and then binary search to increase LO and decrease HI
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 ;; until LO is just before and HI is just after the time zone transition.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112 (let* ((tail (cdr time))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 (lo (cons (car time) (if (numberp tail) tail (car tail))))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114 probe)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115 (while
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 ;; Set PROBE to halfway between LO and HI, rounding down.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 ;; If PROBE equals LO, we are done.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 (let* ((lsum (+ (cdr lo) (cdr hi)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 (hsum (+ (car lo) (car hi) (/ lsum base)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 (hsumodd (logand 1 hsum)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121 (setq probe (cons (/ (- hsum hsumodd) 2)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 (/ (+ (* hsumodd base) (% lsum base)) 2)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 (not (equal lo probe)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 ;; Set either LO or HI to PROBE, depending on probe results.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 (if (eq (car (current-time-zone probe)) hi-utc-diff)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 (setq hi probe)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 (setq lo probe)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 hi))))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 (defun calendar-time-zone-daylight-rules (abs-date utc-diff)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 "Return daylight transition rule for ABS-DATE, UTC-DIFF sec offset from UTC.
16726
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
132 ABS-DATE must specify a day that contains a daylight savings transition.
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 The result has the proper form for calendar-daylight-savings-starts'."
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 (let* ((date (calendar-gregorian-from-absolute abs-date))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 (weekday (% abs-date 7))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 (m (extract-calendar-month date))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 (d (extract-calendar-day date))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138 (y (extract-calendar-year date))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 (last (calendar-last-day-of-month m y))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 (candidate-rules
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 (append
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 ;; Day D of month M.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 (list (list 'list m d 'year))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144 ;; The first WEEKDAY of month M.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 (if (< d 8)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 (list (list 'calendar-nth-named-day 1 weekday m 'year)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 ;; The last WEEKDAY of month M.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148 (if (> d (- last 7))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 (list (list 'calendar-nth-named-day -1 weekday m 'year)))
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 ;; The first WEEKDAY after day J of month M, for D-6 < J <= D.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 (let (l)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 (calendar-for-loop j from (max 2 (- d 6)) to (min d (- last 8)) do
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 (setq l
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 (cons
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 (list 'calendar-nth-named-day 1 weekday m 'year j)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156 l)))
16726
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
157 l)
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
158 ;; 01-01 and 07-01 for this year's Persian calendar.
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
159 (if (and (= m 3) (<= 20 d) (<= d 21))
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
160 '((calendar-gregorian-from-absolute
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
161 (calendar-absolute-from-persian
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
162 (list 1 1 (- year 621))))))
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
163 (if (and (= m 9) (<= 22 d) (<= d 23))
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
164 '((calendar-gregorian-from-absolute
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
165 (calendar-absolute-from-persian
475649bca297 (calendar-time-zone-daylight-rules): Add support
Paul Eggert <eggert@twinsun.com>
parents: 14169
diff changeset
166 (list 7 1 (- year 621))))))))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 (prevday-sec (- -1 utc-diff)) ;; last sec of previous local day
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
168 (year (1+ y)))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
169 ;; Scan through the next few years until only one rule remains.
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
170 (while
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
171 (let ((rules candidate-rules)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
172 new-rules)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
173 (while
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
174 (let*
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
175 ((rule (car rules))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
176 (date
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
177 ;; The following is much faster than
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
178 ;; (calendar-absolute-from-gregorian (eval rule)).
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
179 (cond ((eq (car rule) 'calendar-nth-named-day)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
180 (eval (cons 'calendar-nth-named-absday (cdr rule))))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
181 ((eq (car rule) 'calendar-gregorian-from-absolute)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
182 (eval (car (cdr rule))))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
183 (t (let ((g (eval rule)))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
184 (calendar-absolute-from-gregorian g))))))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
185 (or (equal
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
186 (current-time-zone
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
187 (calendar-time-from-absolute date prevday-sec))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
188 (current-time-zone
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
189 (calendar-time-from-absolute (1+ date) prevday-sec)))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
190 (setq new-rules (cons rule new-rules)))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
191 (setq rules (cdr rules))))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
192 ;; If no rules remain, just use the first candidate rule;
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
193 ;; it's wrong in general, but it's right for at least one year.
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
194 (setq candidate-rules (if new-rules (nreverse new-rules)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
195 (list (car candidate-rules))))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
196 (setq year (1+ year))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
197 (cdr candidate-rules)))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
198 (car candidate-rules)))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 (defun calendar-current-time-zone ()
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201 "Return UTC difference, dst offset, names and rules for current time zone.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
203 Returns (UTC-DIFF DST-OFFSET STD-ZONE DST-ZONE DST-STARTS DST-ENDS
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
204 DST-STARTS-TIME DST-ENDS-TIME), based on a heuristic probing of what the
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
205 system knows:
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207 UTC-DIFF is an integer specifying the number of minutes difference between
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 standard time in the current time zone and Coordinated Universal Time
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 (Greenwich Mean Time). A negative value means west of Greenwich.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 DST-OFFSET is an integer giving the daylight savings time offset in minutes.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
211 STD-ZONE is a string giving the name of the time zone when no seasonal time
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212 adjustment is in effect.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 DST-ZONE is a string giving the name of the time zone when there is a seasonal
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 time adjustment in effect.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 DST-STARTS and DST-ENDS are sexps in the variable `year' giving the daylight
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
216 savings time start and end rules, in the form expected by
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 `calendar-daylight-savings-starts'.
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
218 DST-STARTS-TIME and DST-ENDS-TIME are integers giving the number of minutes
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
219 after midnight that daylight savings time starts and ends.
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
221 If the local area does not use a seasonal time adjustment, STD-ZONE and
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
222 DST-ZONE are equal, and all the DST-* integer variables are 0.
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
224 Some operating systems cannot provide all this information to Emacs; in this
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225 case, `calendar-current-time-zone' returns a list containing nil for the data
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
226 it can't find."
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
227 (or
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228 calendar-current-time-zone-cache
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
229 (setq
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
230 calendar-current-time-zone-cache
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
231 (let* ((t0 (current-time))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
232 (t0-zone (current-time-zone t0))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
233 (t0-utc-diff (car t0-zone))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
234 (t0-name (car (cdr t0-zone))))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
235 (if (not t0-utc-diff)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
236 ;; Little or no time zone information is available.
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
237 (list nil nil t0-name t0-name nil nil nil nil)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
238 (let* ((t1 (calendar-next-time-zone-transition t0))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
239 (t2 (and t1 (calendar-next-time-zone-transition t1))))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
240 (if (not t2)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
241 ;; This locale does not have daylight savings time.
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
242 (list (/ t0-utc-diff 60) 0 t0-name t0-name nil nil 0 0)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
243 ;; Use heuristics to find daylight savings parameters.
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
244 (let* ((t1-zone (current-time-zone t1))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
245 (t1-utc-diff (car t1-zone))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
246 (t1-name (car (cdr t1-zone)))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
247 (t1-date-sec (calendar-absolute-from-time t1 t0-utc-diff))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
248 (t2-date-sec (calendar-absolute-from-time t2 t1-utc-diff))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
249 (t1-rules (calendar-time-zone-daylight-rules
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
250 (car t1-date-sec) t0-utc-diff))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
251 (t2-rules (calendar-time-zone-daylight-rules
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
252 (car t2-date-sec) t1-utc-diff))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
253 (t1-time (/ (cdr t1-date-sec) 60))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
254 (t2-time (/ (cdr t2-date-sec) 60)))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
255 (cons
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
256 (/ (min t0-utc-diff t1-utc-diff) 60)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
257 (cons
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
258 (/ (abs (- t0-utc-diff t1-utc-diff)) 60)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
259 (if (< t0-utc-diff t1-utc-diff)
7749
2f0d34c3059f (calendar-current-time-zone): Fix typo that
Richard M. Stallman <rms@gnu.org>
parents: 7746
diff changeset
260 (list t0-name t1-name t1-rules t2-rules t1-time t2-time)
2f0d34c3059f (calendar-current-time-zone): Fix typo that
Richard M. Stallman <rms@gnu.org>
parents: 7746
diff changeset
261 (list t1-name t0-name t2-rules t1-rules t2-time t1-time)
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
262 )))))))))))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263
13049
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
264 ;;; The following eight defvars relating to daylight savings time should NOT be
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265 ;;; marked to go into loaddefs.el where they would be evaluated when Emacs is
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
266 ;;; dumped. These variables' appropriate values depend on the conditions under
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267 ;;; which the code is INVOKED; so it's inappropriate to initialize them when
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 ;;; Emacs is dumped---they should be initialized when calendar.el is loaded.
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
269 ;;; They default to US Eastern time if time zone info is not available.
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 (calendar-current-time-zone)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
273 (defvar calendar-time-zone (or (car calendar-current-time-zone-cache) -300)
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 "*Number of minutes difference between local standard time at
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 `calendar-location-name' and Coordinated Universal (Greenwich) Time. For
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 example, -300 for New York City, -480 for Los Angeles.")
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 (defvar calendar-daylight-time-offset
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
279 (or (car (cdr calendar-current-time-zone-cache)) 60)
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 "*Number of minutes difference between daylight savings and standard time.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
281
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 If the locale never uses daylight savings time, set this to 0.")
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 (defvar calendar-standard-time-zone-name
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
285 (or (car (nthcdr 2 calendar-current-time-zone-cache)) "EST")
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 "*Abbreviated name of standard time zone at `calendar-location-name'.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 For example, \"EST\" in New York City, \"PST\" for Los Angeles.")
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 (defvar calendar-daylight-time-zone-name
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
290 (or (car (nthcdr 3 calendar-current-time-zone-cache)) "EDT")
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 "*Abbreviated name of daylight-savings time zone at `calendar-location-name'.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 For example, \"EDT\" in New York City, \"PDT\" for Los Angeles.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
293
6735
4930c18bb456 (calendar-daylight-savings-ends)
Richard M. Stallman <rms@gnu.org>
parents: 5001
diff changeset
294 ;;;###autoload
4930c18bb456 (calendar-daylight-savings-ends)
Richard M. Stallman <rms@gnu.org>
parents: 5001
diff changeset
295 (put 'calendar-daylight-savings-starts 'risky-local-variable t)
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 (defvar calendar-daylight-savings-starts
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
297 (or (car (nthcdr 4 calendar-current-time-zone-cache))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
298 (and (not (zerop calendar-daylight-time-offset))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
299 '(calendar-nth-named-day 1 0 4 year)))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 "*Sexp giving the date on which daylight savings time starts.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 This is an expression in the variable `year' whose value gives the Gregorian
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 date in the form (month day year) on which daylight savings time starts. It is
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 used to determine the starting date of daylight savings time for the holiday
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 list and for correcting times of day in the solar and lunar calculations.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 For example, if daylight savings time is mandated to start on October 1,
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 you would set `calendar-daylight-savings-starts' to
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 '(10 1 year)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310
4667
dbe2da5db2f7 (calendar-time-zone-daylight-rules): Remove special case for Israel.
Paul Eggert <eggert@twinsun.com>
parents: 4659
diff changeset
311 If it starts on the first Sunday in April, you would set it to
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312
4667
dbe2da5db2f7 (calendar-time-zone-daylight-rules): Remove special case for Israel.
Paul Eggert <eggert@twinsun.com>
parents: 4659
diff changeset
313 '(calendar-nth-named-day 1 0 4 year)
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 If the locale never uses daylight savings time, set this to nil.")
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316
6735
4930c18bb456 (calendar-daylight-savings-ends)
Richard M. Stallman <rms@gnu.org>
parents: 5001
diff changeset
317 ;;;###autoload
7746
abd7e801de63 (calendar-daylight-savings-ends): Fix typo in put.
Richard M. Stallman <rms@gnu.org>
parents: 7300
diff changeset
318 (put 'calendar-daylight-savings-ends 'risky-local-variable t)
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 (defvar calendar-daylight-savings-ends
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
320 (or (car (nthcdr 5 calendar-current-time-zone-cache))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
321 (and (not (zerop calendar-daylight-time-offset))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
322 '(calendar-nth-named-day -1 0 10 year)))
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 "*Sexp giving the date on which daylight savings time ends.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 This is an expression in the variable `year' whose value gives the Gregorian
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 date in the form (month day year) on which daylight savings time ends. It is
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 used to determine the starting date of daylight savings time for the holiday
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 list and for correcting times of day in the solar and lunar calculations.
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328
4667
dbe2da5db2f7 (calendar-time-zone-daylight-rules): Remove special case for Israel.
Paul Eggert <eggert@twinsun.com>
parents: 4659
diff changeset
329 For example, if daylight savings time ends on the last Sunday in October:
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330
4667
dbe2da5db2f7 (calendar-time-zone-daylight-rules): Remove special case for Israel.
Paul Eggert <eggert@twinsun.com>
parents: 4659
diff changeset
331 '(calendar-nth-named-day -1 0 10 year)
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333 If the locale never uses daylight savings time, set this to nil.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
334
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
335 (defvar calendar-daylight-savings-starts-time
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
336 (or (car (nthcdr 6 calendar-current-time-zone-cache)) 120)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
337 "*Number of minutes after midnight that daylight savings time starts.")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
338
4659
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
339 (defvar calendar-daylight-savings-ends-time
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
340 (or (car (nthcdr 7 calendar-current-time-zone-cache))
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
341 calendar-daylight-savings-starts-time)
031aaf217dc3 (calendar-time-zone-daylight-rules): Scan through the
Paul Eggert <eggert@twinsun.com>
parents: 4535
diff changeset
342 "*Number of minutes after midnight that daylight savings time ends.")
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343
13049
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
344 (defun dst-in-effect (date)
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
345 "True if on absolute DATE daylight savings time is in effect.
13686
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
346 Fractional part of DATE is local standard time of day."
13049
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
347 (let* ((year (extract-calendar-year
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
348 (calendar-gregorian-from-absolute (floor date))))
13686
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
349 (dst-starts-gregorian (eval calendar-daylight-savings-starts))
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
350 (dst-ends-gregorian (eval calendar-daylight-savings-ends))
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
351 (dst-starts (and dst-starts-gregorian
13049
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
352 (+ (calendar-absolute-from-gregorian
13686
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
353 dst-starts-gregorian)
13049
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
354 (/ calendar-daylight-savings-starts-time
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
355 60.0 24.0))))
13686
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
356 (dst-ends (and dst-ends-gregorian
13049
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
357 (+ (calendar-absolute-from-gregorian
13686
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
358 dst-ends-gregorian)
13049
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
359 (/ (- calendar-daylight-savings-ends-time
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
360 calendar-daylight-time-offset)
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
361 60.0 24.0)))))
13686
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
362 (and dst-starts dst-ends
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
363 (if (< dst-starts dst-ends)
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
364 (and (<= dst-starts date) (< date dst-ends))
6e3b9c9595eb Fixed dst-in-effect for southern hemisphere. Also made doc string clearer.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 13049
diff changeset
365 (or (<= dst-starts date) (< date dst-ends))))))
13049
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
366
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
367 (defun dst-adjust-time (date time &optional style)
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
368 "Adjust, to account for dst on DATE, decimal fraction standard TIME.
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
369 Returns a list (date adj-time zone) where `date' and `adj-time' are the values
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
370 adjusted for `zone'; here `date' is a list (month day year), `adj-time' is a
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
371 decimal fraction time, and `zone' is a string.
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
372
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
373 Optional parameter STYLE forces the result time to be standard time when its
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
374 value is 'standard and daylight savings time (if available) when its value is
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
375 'daylight.
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
376
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
377 Conversion to daylight savings time is done according to
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
378 `calendar-daylight-savings-starts', `calendar-daylight-savings-ends',
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
379 `calendar-daylight-savings-starts-time',
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
380 `calendar-daylight-savings-ends-time', and
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
381 `calendar-daylight-savings-offset'."
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
382
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
383 (let* ((rounded-abs-date (+ (calendar-absolute-from-gregorian date)
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
384 (/ (round (* 60 time)) 60.0 24.0)))
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
385 (dst (dst-in-effect rounded-abs-date))
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
386 (time-zone (if dst
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
387 calendar-daylight-time-zone-name
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
388 calendar-standard-time-zone-name))
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
389 (time (+ rounded-abs-date
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
390 (if dst (/ calendar-daylight-time-offset 24.0 60.0) 0))))
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
391 (list (calendar-gregorian-from-absolute (truncate time))
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
392 (* 24.0 (- time (truncate time)))
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
393 time-zone)))
fac816f95bd8 Minor fixes; moved some code here from other calendar files.
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents: 7749
diff changeset
394
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
395 (provide 'cal-dst)
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49598
diff changeset
397 ;;; arch-tag: a141d204-213c-4ca5-bdc6-f9df3aa92aad
3872
923a207e7967 * cal-dst.el: New file.
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398 ;;; cal-dst.el ends here