diff options
| author | Edward M. Reingold | 1995-06-19 15:36:11 +0000 |
|---|---|---|
| committer | Edward M. Reingold | 1995-06-19 15:36:11 +0000 |
| commit | 562a94a04117df9cdce3c283276f2becee3ef260 (patch) | |
| tree | 018f057b96e527f7f5ec359b1059c05c937d7a0a | |
| parent | 993a1a444f170b9adba8d14c9b2b5e6f116f135d (diff) | |
| download | emacs-562a94a04117df9cdce3c283276f2becee3ef260.tar.gz emacs-562a94a04117df9cdce3c283276f2becee3ef260.zip | |
Fix bug in determination of output string.
| -rw-r--r-- | lisp/calendar/solar.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index a35dfe53f13..95f84f401af 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el | |||
| @@ -134,7 +134,7 @@ This variable should be set in site-local.el.") | |||
| 134 | (/ (aref calendar-longitude 1) 60.0))) | 134 | (/ (aref calendar-longitude 1) 60.0))) |
| 135 | (if (numberp calendar-longitude) | 135 | (if (numberp calendar-longitude) |
| 136 | (if (> calendar-longitude 0) "E" "W") | 136 | (if (> calendar-longitude 0) "E" "W") |
| 137 | (if (equal (aref calendar-latitude 2) 'east) "E" "W")))) | 137 | (if (equal (aref calendar-longitude 2) 'east) "E" "W")))) |
| 138 | "*Expression evaluating to name of `calendar-longitude', calendar-latitude'. | 138 | "*Expression evaluating to name of `calendar-longitude', calendar-latitude'. |
| 139 | For example, \"New York City\". Default value is just the latitude, longitude | 139 | For example, \"New York City\". Default value is just the latitude, longitude |
| 140 | pair. | 140 | pair. |
| @@ -491,7 +491,7 @@ This function is suitable for execution in a .emacs file." | |||
| 491 | (/ (aref calendar-longitude 1) 60.0))) | 491 | (/ (aref calendar-longitude 1) 60.0))) |
| 492 | (if (numberp calendar-longitude) | 492 | (if (numberp calendar-longitude) |
| 493 | (if (> calendar-longitude 0) "E" "W") | 493 | (if (> calendar-longitude 0) "E" "W") |
| 494 | (if (equal (aref calendar-latitude 2) 'east) | 494 | (if (equal (aref calendar-longitude 2) 'east) |
| 495 | "E" "W")))))) | 495 | "E" "W")))))) |
| 496 | (calendar-standard-time-zone-name | 496 | (calendar-standard-time-zone-name |
| 497 | (if (< arg 16) calendar-standard-time-zone-name | 497 | (if (< arg 16) calendar-standard-time-zone-name |