Mercurial > emacs
comparison lisp/calendar/solar.el @ 12312:7816b2769014
Fix bug in determination of output string.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Mon, 19 Jun 1995 15:36:11 +0000 |
| parents | 0cef7b5644f5 |
| children | 2aa3e1b05567 |
comparison
equal
deleted
inserted
replaced
| 12311:d33ef5819d81 | 12312:7816b2769014 |
|---|---|
| 132 (abs calendar-longitude) | 132 (abs calendar-longitude) |
| 133 (+ (aref calendar-longitude 0) | 133 (+ (aref calendar-longitude 0) |
| 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. |
| 141 | 141 |
| 142 This variable should be set in site-local.el.") | 142 This variable should be set in site-local.el.") |
| 489 (abs calendar-longitude) | 489 (abs calendar-longitude) |
| 490 (+ (aref calendar-longitude 0) | 490 (+ (aref calendar-longitude 0) |
| 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 |
| 498 (cond ((= calendar-time-zone 0) "UTC") | 498 (cond ((= calendar-time-zone 0) "UTC") |
| 499 ((< calendar-time-zone 0) | 499 ((< calendar-time-zone 0) |