[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-forms.el
From: |
D. Goel |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-forms.el |
Date: |
Sun, 16 Mar 2003 15:26:43 -0500 |
Index: emacs/lisp/calc/calc-forms.el
diff -c emacs/lisp/calc/calc-forms.el:1.6 emacs/lisp/calc/calc-forms.el:1.7
*** emacs/lisp/calc/calc-forms.el:1.6 Tue Feb 4 07:47:09 2003
--- emacs/lisp/calc/calc-forms.el Sun Mar 16 15:26:43 2003
***************
*** 1229,1249 ****
;;; Note: Longer names must appear before shorter names which are
;;; substrings of them.
(defvar math-tzone-names
! '( ( "MEGT" -1 "MET" "METDST" ) ; Middle Europe
! ( "METDST" -1 -1 ) ( "MET" -1 0 )
! ( "MEGZ" -1 "MEZ" "MESZ" ) ( "MEZ" -1 0 ) ( "MESZ" -1 -1 )
! ( "WEGT" 0 "WET" "WETDST" ) ; Western Europe
! ( "WETDST" 0 -1 ) ( "WET" 0 0 )
! ( "BGT" 0 "GMT" "BST" ) ( "GMT" 0 0 ) ( "BST" 0 -1 ) ; Britain
! ( "NGT" (float 35 -1) "NST" "NDT" ) ; Newfoundland
! ( "NST" (float 35 -1) 0 ) ( "NDT" (float 35 -1) -1 )
! ( "AGT" 4 "AST" "ADT" ) ( "AST" 4 0 ) ( "ADT" 4 -1 ) ; Atlantic
! ( "EGT" 5 "EST" "EDT" ) ( "EST" 5 0 ) ( "EDT" 5 -1 ) ; Eastern
! ( "CGT" 6 "CST" "CDT" ) ( "CST" 6 0 ) ( "CDT" 6 -1 ) ; Central
! ( "MGT" 7 "MST" "MDT" ) ( "MST" 7 0 ) ( "MDT" 7 -1 ) ; Mountain
! ( "PGT" 8 "PST" "PDT" ) ( "PST" 8 0 ) ( "PDT" 8 -1 ) ; Pacific
! ( "YGT" 9 "YST" "YDT" ) ( "YST" 9 0 ) ( "YDT" 9 -1 ) ; Yukon
! ))
(defun math-daylight-savings-adjust (date zone &optional dt)
--- 1229,1251 ----
;;; Note: Longer names must appear before shorter names which are
;;; substrings of them.
(defvar math-tzone-names
! '(( "UTC" 0 0)
! ( "MEGT" -1 "MET" "METDST" ) ; Middle Europe
! ( "METDST" -1 -1 ) ( "MET" -1 0 )
! ( "MEGZ" -1 "MEZ" "MESZ" ) ( "MEZ" -1 0 ) ( "MESZ" -1 -1 )
! ( "WEGT" 0 "WET" "WETDST" ) ; Western Europe
! ( "WETDST" 0 -1 ) ( "WET" 0 0 )
! ( "BGT" 0 "GMT" "BST" ) ( "GMT" 0 0 ) ( "BST" 0 -1 ) ; Britain
! ( "NGT" (float 35 -1) "NST" "NDT" ) ; Newfoundland
! ( "NST" (float 35 -1) 0 ) ( "NDT" (float 35 -1) -1 )
! ( "AGT" 4 "AST" "ADT" ) ( "AST" 4 0 ) ( "ADT" 4 -1 ) ; Atlantic
! ( "EGT" 5 "EST" "EDT" ) ( "EST" 5 0 ) ( "EDT" 5 -1 ) ; Eastern
! ( "CGT" 6 "CST" "CDT" ) ( "CST" 6 0 ) ( "CDT" 6 -1 ) ; Central
! ( "MGT" 7 "MST" "MDT" ) ( "MST" 7 0 ) ( "MDT" 7 -1 ) ; Mountain
! ( "PGT" 8 "PST" "PDT" ) ( "PST" 8 0 ) ( "PDT" 8 -1 ) ; Pacific
! ( "YGT" 9 "YST" "YDT" ) ( "YST" 9 0 ) ( "YDT" 9 -1 ) ; Yukon
! )
! "No doc yet. See calc manual for now. ")
(defun math-daylight-savings-adjust (date zone &optional dt)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-forms.el,
D. Goel <=