aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-03-13 05:49:02 +0000
committerGlenn Morris2008-03-13 05:49:02 +0000
commitfb97eeac20f11e5aa692851472c9f81ede40a71d (patch)
tree00e4816600d9327be10178132f6ae19525f3336e
parent93695e742b5520e11e9fdebcc78c25027dca22a6 (diff)
downloademacs-fb97eeac20f11e5aa692851472c9f81ede40a71d.tar.gz
emacs-fb97eeac20f11e5aa692851472c9f81ede40a71d.zip
Add calendar-specific autoload cookies.
-rw-r--r--lisp/calendar/lunar.el2
-rw-r--r--lisp/calendar/solar.el4
2 files changed, 6 insertions, 0 deletions
diff --git a/lisp/calendar/lunar.el b/lisp/calendar/lunar.el
index 118dedfcad9..3d01fbd0ce6 100644
--- a/lisp/calendar/lunar.el
+++ b/lisp/calendar/lunar.el
@@ -184,6 +184,7 @@ remainder mod 4 gives the phase: 0 new moon, 1 first quarter, 2 full moon,
184 ((= 2 phase) "Full Moon") 184 ((= 2 phase) "Full Moon")
185 ((= 3 phase) "Last Quarter Moon"))) 185 ((= 3 phase) "Last Quarter Moon")))
186 186
187;;;###cal-autoload
187(defun calendar-phases-of-moon () 188(defun calendar-phases-of-moon ()
188 "Create a buffer with the lunar phases for the current calendar window." 189 "Create a buffer with the lunar phases for the current calendar window."
189 (interactive) 190 (interactive)
@@ -235,6 +236,7 @@ This function is suitable for execution in a .emacs file."
235 (displayed-year (extract-calendar-year date))) 236 (displayed-year (extract-calendar-year date)))
236 (calendar-phases-of-moon)))) 237 (calendar-phases-of-moon))))
237 238
239;;;###diary-autoload
238(defun diary-phases-of-moon (&optional mark) 240(defun diary-phases-of-moon (&optional mark)
239"Moon phases diary entry. 241"Moon phases diary entry.
240An optional parameter MARK specifies a face or single-character string to 242An optional parameter MARK specifies a face or single-character string to
diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 90cebd59d2e..d0b02b4b111 100644
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -872,6 +872,7 @@ This function is suitable for execution in a .emacs file."
872 "Type \\[switch-to-buffer-other-window] RET to restore old \ 872 "Type \\[switch-to-buffer-other-window] RET to restore old \
873contents of temp window.")))))) 873contents of temp window."))))))
874 874
875;;;###cal-autoload
875(defun calendar-sunrise-sunset () 876(defun calendar-sunrise-sunset ()
876 "Local time of sunrise and sunset for date under cursor. 877 "Local time of sunrise and sunset for date under cursor.
877Accurate to a few seconds." 878Accurate to a few seconds."
@@ -886,6 +887,7 @@ Accurate to a few seconds."
886(defvar date) 887(defvar date)
887 888
888;; To be called from list-sexp-diary-entries, where DATE is bound. 889;; To be called from list-sexp-diary-entries, where DATE is bound.
890;;;###diary-autoload
889(defun diary-sunrise-sunset () 891(defun diary-sunrise-sunset ()
890 "Local time of sunrise and sunset as a diary entry. 892 "Local time of sunrise and sunset as a diary entry.
891Accurate to a few seconds." 893Accurate to a few seconds."
@@ -894,6 +896,7 @@ Accurate to a few seconds."
894 (solar-sunrise-sunset-string date)) 896 (solar-sunrise-sunset-string date))
895 897
896;; To be called from list-sexp-diary-entries, where DATE is bound. 898;; To be called from list-sexp-diary-entries, where DATE is bound.
899;;;###diary-autoload
897(defun diary-sabbath-candles (&optional mark) 900(defun diary-sabbath-candles (&optional mark)
898 "Local time of candle lighting diary entry--applies if date is a Friday. 901 "Local time of candle lighting diary entry--applies if date is a Friday.
899No diary entry if there is no sunset on that date. 902No diary entry if there is no sunset on that date.
@@ -1015,6 +1018,7 @@ solstice. These formulas are only to be used between 1000 BC and 3000 AD."
1015 (* -0.00823 z z z) 1018 (* -0.00823 z z z)
1016 (* 0.00032 z z z z))))))) 1019 (* 0.00032 z z z z)))))))
1017 1020
1021;;;###holiday-autoload
1018(defun solar-equinoxes-solstices () 1022(defun solar-equinoxes-solstices ()
1019 "Local date and time of equinoxes and solstices, if visible in the calendar. 1023 "Local date and time of equinoxes and solstices, if visible in the calendar.
1020Requires floating point." 1024Requires floating point."