Mercurial > emacs
comparison lisp/calendar/calendar.el @ 7779:866b98279551
(solar-holidays): Revised to use the rewritten and new fcns.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Fri, 03 Jun 1994 20:27:02 +0000 |
| parents | 4edcac57a8f2 |
| children | bf04e77f34dc |
comparison
equal
deleted
inserted
replaced
| 7778:b0e2bd1e825a | 7779:866b98279551 |
|---|---|
| 805 'holiday-sexp | 805 'holiday-sexp |
| 806 calendar-daylight-savings-starts | 806 calendar-daylight-savings-starts |
| 807 '(format "Daylight Savings Time Begins %s" | 807 '(format "Daylight Savings Time Begins %s" |
| 808 (if (fboundp 'atan) | 808 (if (fboundp 'atan) |
| 809 (solar-time-string | 809 (solar-time-string |
| 810 (/ calendar-daylight-savings-starts-time | 810 (/ calendar-daylight-savings-starts-time (float 60)) |
| 811 (float 60)) | 811 calendar-standard-time-zone-name) |
| 812 date | |
| 813 'standard) | |
| 814 "")))) | 812 "")))) |
| 815 (funcall | 813 (funcall |
| 816 'holiday-sexp | 814 'holiday-sexp |
| 817 calendar-daylight-savings-ends | 815 calendar-daylight-savings-ends |
| 818 '(format "Daylight Savings Time Ends %s" | 816 '(format "Daylight Savings Time Ends %s" |
| 819 (if (fboundp 'atan) | 817 (if (fboundp 'atan) |
| 820 (solar-time-string | 818 (solar-time-string |
| 821 (/ (- calendar-daylight-savings-ends-time | 819 (/ calendar-daylight-savings-ends-time (float 60)) |
| 822 calendar-daylight-time-offset) | 820 calendar-daylight-time-zone-name) |
| 823 (float 60)) | |
| 824 date | |
| 825 'daylight) | |
| 826 "")))) | 821 "")))) |
| 827 "*Sun-related holidays. | 822 "*Sun-related holidays. |
| 828 See the documentation for `calendar-holidays' for details.") | 823 See the documentation for `calendar-holidays' for details.") |
| 829 | 824 |
| 830 ;;;###autoload | 825 ;;;###autoload |