mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

* calendar.el (calendar-standard-time-zone-name,

Browse Source 
calendar-daylight-time-zone-name): Initialize these at load-time,
	as well as calendar-time-zone.

	* calendar.el (calendar-time-zone): Fix code which initializes
	this.
This commit is contained in:
Jim Blandy 1993-03-25 01:28:21 +00:00
parent 723d4d15ae
commit cb0d33b2a1
1 changed files with 28 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
lisp/calendar/calendar.el
View File

@ -479,33 +479,50 @@ For example, -74.0 for New York City.")
`calendar-longitude', calendar-latitude'. Default value is just the latitude,
longitude pair.")
;;; Since this defvar is marked to go into loaddefs.el, it will be
;;; evaluated when Emacs is dumped. However, this variable's
;;; appropriate value really depends on the conditions under which the
;;; code is invoked; it would be inappropriate to initialize this when
;;; Emacs is dumped. So, we initialize it to nil now, and if it's
;;; still nil when this file is actually loaded, we give it its real value.
;;; Since the following three defvars are marked to go into
;;; loaddefs.el, they will be evaluated when Emacs is dumped.
;;; However, these variables' appropriate values really depend on the
;;; conditions under which the code is invoked; so it's inappropriate
;;; to initialize them when Emacs is dumped. Thus we initialize them
;;; to nil now, and if they are still nil when this file is actually
;;; loaded, we give them their real values then.
;;;###autoload
(defvar calendar-time-zone nil
"*Number of minutes difference between local standard time at
`calendar-location-name' and Universal (Greenwich) Time. For example, -300
for New York City, -480 for Los Angeles.
If this is nil, it will be set to the local time zone when the calendar
package loads.")
;;; If the user has given this a real value, don't wipe it out.
(or calendar-time-zone
(setq calendar-time-zone (current-time-zone)))
(setq calendar-time-zone (car (current-time-zone))))
;;;###autoload
(defvar calendar-standard-time-zone-name (car (nthcdr 2 (current-time-zone)))
(defvar calendar-standard-time-zone-name nil
"*Abbreviated name of standard time zone at `calendar-location-name'.
For example, \"EST\" in New York City, \"PST\" for Los Angeles.")
For example, \"EST\" in New York City, \"PST\" for Los Angeles.
If this is nil, it will be set for the local time zone when the calendar
package loads.")
;;; If the user has given this a value, don't wipe it out.
(or calendar-standard-time-zone-name
(setq calendar-standard-time-zone-name
(car (nthcdr 2 (current-time-zone)))))
;;;###autoload
(defvar calendar-daylight-time-zone-name (car (nthcdr 3 (current-time-zone)))
(defvar calendar-daylight-time-zone-name nil
"*Abbreviated name of daylight-savings time zone at `calendar-location-name'.
For example, \"EDT\" in New York City, \"PDT\" for Los Angeles.")
For example, \"EDT\" in New York City, \"PDT\" for Los Angeles.
If this is nil, it will be set for the local time zone when the calendar
package loads.")
;;; If the user has given this a value, don't wipe it out.
(or calendar-daylight-time-zone-name
(setq calendar-daylight-time-zone-name
(car (nthcdr 3 (current-time-zone)))))
;;;###autoload
(defvar calendar-daylight-savings-starts
'(calendar-nth-named-day 1 0 4 year)