3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainer: Colin Walters <walters@debian.org> |
;; Maintainers: D. Goel <deego@gnufans.org> |
7 |
|
;; Colin Walters <walters@debian.org> |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
1229 |
;;; Note: Longer names must appear before shorter names which are |
;;; Note: Longer names must appear before shorter names which are |
1230 |
;;; substrings of them. |
;;; substrings of them. |
1231 |
(defvar math-tzone-names |
(defvar math-tzone-names |
1232 |
'( ( "MEGT" -1 "MET" "METDST" ) ; Middle Europe |
'(( "UTC" 0 0) |
1233 |
( "METDST" -1 -1 ) ( "MET" -1 0 ) |
( "MEGT" -1 "MET" "METDST" ) ; Middle Europe |
1234 |
( "MEGZ" -1 "MEZ" "MESZ" ) ( "MEZ" -1 0 ) ( "MESZ" -1 -1 ) |
( "METDST" -1 -1 ) ( "MET" -1 0 ) |
1235 |
( "WEGT" 0 "WET" "WETDST" ) ; Western Europe |
( "MEGZ" -1 "MEZ" "MESZ" ) ( "MEZ" -1 0 ) ( "MESZ" -1 -1 ) |
1236 |
( "WETDST" 0 -1 ) ( "WET" 0 0 ) |
( "WEGT" 0 "WET" "WETDST" ) ; Western Europe |
1237 |
( "BGT" 0 "GMT" "BST" ) ( "GMT" 0 0 ) ( "BST" 0 -1 ) ; Britain |
( "WETDST" 0 -1 ) ( "WET" 0 0 ) |
1238 |
( "NGT" (float 35 -1) "NST" "NDT" ) ; Newfoundland |
( "BGT" 0 "GMT" "BST" ) ( "GMT" 0 0 ) ( "BST" 0 -1 ) ; Britain |
1239 |
( "NST" (float 35 -1) 0 ) ( "NDT" (float 35 -1) -1 ) |
( "NGT" (float 35 -1) "NST" "NDT" ) ; Newfoundland |
1240 |
( "AGT" 4 "AST" "ADT" ) ( "AST" 4 0 ) ( "ADT" 4 -1 ) ; Atlantic |
( "NST" (float 35 -1) 0 ) ( "NDT" (float 35 -1) -1 ) |
1241 |
( "EGT" 5 "EST" "EDT" ) ( "EST" 5 0 ) ( "EDT" 5 -1 ) ; Eastern |
( "AGT" 4 "AST" "ADT" ) ( "AST" 4 0 ) ( "ADT" 4 -1 ) ; Atlantic |
1242 |
( "CGT" 6 "CST" "CDT" ) ( "CST" 6 0 ) ( "CDT" 6 -1 ) ; Central |
( "EGT" 5 "EST" "EDT" ) ( "EST" 5 0 ) ( "EDT" 5 -1 ) ; Eastern |
1243 |
( "MGT" 7 "MST" "MDT" ) ( "MST" 7 0 ) ( "MDT" 7 -1 ) ; Mountain |
( "CGT" 6 "CST" "CDT" ) ( "CST" 6 0 ) ( "CDT" 6 -1 ) ; Central |
1244 |
( "PGT" 8 "PST" "PDT" ) ( "PST" 8 0 ) ( "PDT" 8 -1 ) ; Pacific |
( "MGT" 7 "MST" "MDT" ) ( "MST" 7 0 ) ( "MDT" 7 -1 ) ; Mountain |
1245 |
( "YGT" 9 "YST" "YDT" ) ( "YST" 9 0 ) ( "YDT" 9 -1 ) ; Yukon |
( "PGT" 8 "PST" "PDT" ) ( "PST" 8 0 ) ( "PDT" 8 -1 ) ; Pacific |
1246 |
)) |
( "YGT" 9 "YST" "YDT" ) ( "YST" 9 0 ) ( "YDT" 9 -1 ) ; Yukon |
1247 |
|
) |
1248 |
|
"No doc yet. See calc manual for now. ") |
1249 |
|
|
1250 |
|
|
1251 |
(defun math-daylight-savings-adjust (date zone &optional dt) |
(defun math-daylight-savings-adjust (date zone &optional dt) |