# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1206501235 0
# Node ID 940127da58633a936f4673fb0950efaaa34a1f34
# Parent  41e41843fac2694450de39f5cbe052d56dad5b14
Provide calendar before requiring cal-menu.
(oriental-holidays, solar-holidays): Assume atan always bound.
(solar-holidays): Simplify holiday-sexp calls.

diff -r 41e41843fac2 -r 940127da5863 lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Wed Mar 26 03:12:48 2008 +0000
+++ b/lisp/calendar/calendar.el	Wed Mar 26 03:13:55 2008 +0000
@@ -118,6 +118,8 @@
 (eval-and-compile
   (load "cal-loaddefs" nil 'quiet))
 
+;; Avoid recursive load of calendar when loading cal-menu.
+(provide 'calendar)
 (require 'cal-menu)
 
 
@@ -714,8 +716,7 @@
 
 ;;;###autoload
 (defcustom oriental-holidays
-  '((if (fboundp 'atan)
-        (holiday-chinese-new-year)))
+  '((holiday-chinese-new-year))
   "Oriental holidays.
 See the documentation for `calendar-holidays' for details."
   :type 'sexp
@@ -1008,27 +1009,17 @@
 
 ;;;###autoload
 (defcustom solar-holidays
-  '((if (fboundp 'atan)
-        (solar-equinoxes-solstices))
-    (if (require 'cal-dst)
-      (funcall
-       'holiday-sexp
-        calendar-daylight-savings-starts
-        '(format "Daylight Saving Time Begins %s"
-                  (if (fboundp 'atan)
-                      (solar-time-string
-                       (/ calendar-daylight-savings-starts-time (float 60))
-                       calendar-standard-time-zone-name)
-                    ""))))
-    (funcall
-     'holiday-sexp
-     calendar-daylight-savings-ends
-     '(format "Daylight Saving Time Ends %s"
-              (if (fboundp 'atan)
-                  (solar-time-string
-                   (/ calendar-daylight-savings-ends-time (float 60))
-                   calendar-daylight-time-zone-name)
-                ""))))
+  '((solar-equinoxes-solstices)
+    (holiday-sexp calendar-daylight-savings-starts
+                  (format "Daylight Saving Time Begins %s"
+                          (solar-time-string
+                           (/ calendar-daylight-savings-starts-time (float 60))
+                           calendar-standard-time-zone-name)))
+    (holiday-sexp calendar-daylight-savings-ends
+                  (format "Daylight Saving Time Ends %s"
+                          (solar-time-string
+                           (/ calendar-daylight-savings-ends-time (float 60))
+                           calendar-daylight-time-zone-name))))
   "Sun-related holidays.
 See the documentation for `calendar-holidays' for details."
   :type 'sexp