Mercurial > emacs
comparison lisp/calendar/calendar.el @ 2211:a53385347b85
* calendar.el (calendar-time-zone): Initialize this when
calendar.el loads, not in the defvar.
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Tue, 16 Mar 1993 09:13:53 +0000 |
parents | 1c718ee07ac9 |
children | 2c7997f249eb |
comparison
equal
deleted
inserted
replaced
2210:22d78dbb3cc7 | 2211:a53385347b85 |
---|---|
475 (if (> calendar-longitude 0) "E" "W"))) | 475 (if (> calendar-longitude 0) "E" "W"))) |
476 "*An expression that evaluates to the name of the location at | 476 "*An expression that evaluates to the name of the location at |
477 `calendar-longitude', calendar-latitude'. Default value is just the latitude, | 477 `calendar-longitude', calendar-latitude'. Default value is just the latitude, |
478 longitude pair.") | 478 longitude pair.") |
479 | 479 |
480 ;;;###autoload | 480 ;;; Since this defvar is marked to go into loaddefs.el, it will be |
481 (defvar calendar-time-zone (car (current-time-zone)) | 481 ;;; evaluated when Emacs is dumped. However, this variable's |
482 ;;; appropriate value really depends on the conditions under which the | |
483 ;;; code is invoked; it would be inappropriate to initialize this when | |
484 ;;; Emacs is dumped. So, we initialize it to nil now, and if it's | |
485 ;;; still nil when this file is actually loaded, we give it its real value. | |
486 ;;;###autoload | |
487 (defvar calendar-time-zone nil | |
482 "*Number of minutes difference between local standard time at | 488 "*Number of minutes difference between local standard time at |
483 `calendar-location-name' and Universal (Greenwich) Time. For example, -300 | 489 `calendar-location-name' and Universal (Greenwich) Time. For example, -300 |
484 for New York City, -480 for Los Angeles.") | 490 for New York City, -480 for Los Angeles. |
491 If this is nil, it will be set to the local time zone when the calendar | |
492 package loads.") | |
493 ;;; If the user has given this a real value, don't wipe it out. | |
494 (or calendar-time-zone | |
495 (setq calendar-time-zone (current-time-zone))) | |
485 | 496 |
486 ;;;###autoload | 497 ;;;###autoload |
487 (defvar calendar-standard-time-zone-name (car (nthcdr 2 (current-time-zone))) | 498 (defvar calendar-standard-time-zone-name (car (nthcdr 2 (current-time-zone))) |
488 "*Abbreviated name of standard time zone at `calendar-location-name'. | 499 "*Abbreviated name of standard time zone at `calendar-location-name'. |
489 For example, \"EST\" in New York City, \"PST\" for Los Angeles.") | 500 For example, \"EST\" in New York City, \"PST\" for Los Angeles.") |