Mercurial > emacs
comparison lisp/calendar/cal-china.el @ 13284:7b2bfa585697
Minor doc fixes.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Tue, 24 Oct 1995 15:49:00 +0000 |
| parents | f8658d1ca0f2 |
| children | 77d8e407592e |
comparison
equal
deleted
inserted
replaced
| 13283:f8658d1ca0f2 | 13284:7b2bfa585697 |
|---|---|
| 64 (defvar chinese-calendar-location-name "Beijing" | 64 (defvar chinese-calendar-location-name "Beijing" |
| 65 "*Name of location used for calculation of Chinese calendar.") | 65 "*Name of location used for calculation of Chinese calendar.") |
| 66 | 66 |
| 67 (defvar chinese-calendar-daylight-time-offset 60 | 67 (defvar chinese-calendar-daylight-time-offset 60 |
| 68 "*Number of minutes difference between daylight savings and standard time | 68 "*Number of minutes difference between daylight savings and standard time |
| 69 for Chinese calendar. Default is for no daylight savings time.") | 69 for Chinese calendar.") |
| 70 | 70 |
| 71 (defvar chinese-calendar-standard-time-zone-name | 71 (defvar chinese-calendar-standard-time-zone-name |
| 72 '(if (< year 1928) | 72 '(if (< year 1928) |
| 73 "PMT" | 73 "PMT" |
| 74 "CST") | 74 "CST") |
| 80 (defvar chinese-calendar-daylight-savings-starts | 80 (defvar chinese-calendar-daylight-savings-starts |
| 81 '(cond ((< 1986 year) (calendar-nth-named-day 1 0 4 year 10)) | 81 '(cond ((< 1986 year) (calendar-nth-named-day 1 0 4 year 10)) |
| 82 ((= 1986 year) '(5 4 1986)) | 82 ((= 1986 year) '(5 4 1986)) |
| 83 (t nil)) | 83 (t nil)) |
| 84 "*Sexp giving the date on which daylight savings time starts for Chinese | 84 "*Sexp giving the date on which daylight savings time starts for Chinese |
| 85 calendar. Default is for no daylight savings time. See documentation of | 85 calendar. See documentation of `calendar-daylight-savings-starts'.") |
| 86 `calendar-daylight-savings-starts'.") | |
| 87 | 86 |
| 88 (defvar chinese-calendar-daylight-savings-ends | 87 (defvar chinese-calendar-daylight-savings-ends |
| 89 '(if (<= 1986 year) (calendar-nth-named-day 1 0 9 year 11)) | 88 '(if (<= 1986 year) (calendar-nth-named-day 1 0 9 year 11)) |
| 90 "*Sexp giving the date on which daylight savings time ends for Chinese | 89 "*Sexp giving the date on which daylight savings time ends for Chinese |
| 91 calendar. Default is for no daylight savings time. See documentation of | 90 calendar. See documentation of `calendar-daylight-savings-ends'.") |
| 92 `calendar-daylight-savings-ends'.") | |
| 93 | 91 |
| 94 (defvar chinese-calendar-daylight-savings-starts-time 0 | 92 (defvar chinese-calendar-daylight-savings-starts-time 0 |
| 95 "*Number of minutes after midnight that daylight savings time starts for | 93 "*Number of minutes after midnight that daylight savings time starts for |
| 96 Chinese calendar. Default is for no daylight savings time.") | 94 Chinese calendar.") |
| 97 | 95 |
| 98 (defvar chinese-calendar-daylight-savings-ends-time 0 | 96 (defvar chinese-calendar-daylight-savings-ends-time 0 |
| 99 "*Number of minutes after midnight that daylight savings time ends for | 97 "*Number of minutes after midnight that daylight savings time ends for |
| 100 Chinese calendar. Default is for no daylight savings time.") | 98 Chinese calendar.") |
| 101 | 99 |
| 102 (defun chinese-zodiac-sign-on-or-after (d) | 100 (defun chinese-zodiac-sign-on-or-after (d) |
| 103 "Absolute date of first new Zodiac sign on or after absolute date d. | 101 "Absolute date of first new Zodiac sign on or after absolute date d. |
| 104 The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees." | 102 The Zodiac signs begin when the sun's longitude is a multiple of 30 degrees." |
| 105 (let* ((year (extract-calendar-year | 103 (let* ((year (extract-calendar-year |