Mercurial > emacs
comparison lisp/calendar/calendar.el @ 5009:bf77303bd714
(solar-holidays): Change top-level progn to an if.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 14 Nov 1993 22:51:17 +0000 |
| parents | 924486090b27 |
| children | 00beab2bf9f0 |
comparison
equal
deleted
inserted
replaced
| 5008:0f979427b6ac | 5009:bf77303bd714 |
|---|---|
| 747 | 747 |
| 748 ;;;###autoload | 748 ;;;###autoload |
| 749 (defvar solar-holidays | 749 (defvar solar-holidays |
| 750 '((if (fboundp 'atan) | 750 '((if (fboundp 'atan) |
| 751 (solar-equinoxes-solstices)) | 751 (solar-equinoxes-solstices)) |
| 752 (progn | 752 (if (progn |
| 753 (require 'cal-dst) | 753 (require 'cal-dst) |
| 754 t) | |
| 754 (funcall | 755 (funcall |
| 755 'holiday-sexp | 756 'holiday-sexp |
| 756 calendar-daylight-savings-starts | 757 calendar-daylight-savings-starts |
| 757 '(format "Daylight Savings Time Begins %s" | 758 '(format "Daylight Savings Time Begins %s" |
| 758 (if (fboundp 'atan) | 759 (if (fboundp 'atan) |
| 759 (solar-time-string | 760 (solar-time-string |
| 760 (/ calendar-daylight-savings-starts-time | 761 (/ calendar-daylight-savings-starts-time |