changeset 92828:5d415a63a344

(generated-autoload-file): Don't set, instead use different values of generate-autoload-cookie plus Makefile rules to allow for a mixture of internal calendar autoloads and normal autoloads.
author Glenn Morris <rgm@gnu.org>
date Thu, 13 Mar 2008 05:40:55 +0000
parents 02fc7543d146
children 8777b384ba72
files lisp/calendar/cal-coptic.el
diffstat 1 files changed, 8 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/cal-coptic.el	Thu Mar 13 05:40:34 2008 +0000
+++ b/lisp/calendar/cal-coptic.el	Thu Mar 13 05:40:55 2008 +0000
@@ -105,7 +105,7 @@
                (1- (calendar-absolute-from-coptic (list month 1 year))))))
     (list month day year))))
 
-;;;###autoload
+;;;###cal-autoload
 (defun calendar-coptic-date-string (&optional date)
   "String of Coptic date of Gregorian DATE.
 Returns the empty string if DATE is pre-Coptic calendar.
@@ -124,7 +124,7 @@
             (year (int-to-string y)))
         (mapconcat 'eval calendar-date-display-form "")))))
 
-;;;###autoload
+;;;###cal-autoload
 (defun calendar-print-coptic-date ()
   "Show the Coptic calendar equivalent of the selected date."
   (interactive)
@@ -133,7 +133,7 @@
         (message "Date is pre-%s calendar" coptic-name)
       (message "%s date: %s" coptic-name f))))
 
-;;;###autoload
+;;;###cal-autoload
 (defun calendar-goto-coptic-date (date &optional noecho)
   "Move cursor to Coptic date DATE.
 Echo Coptic date unless NOECHO is t."
@@ -170,6 +170,7 @@
 (defvar date)
 
 ;; To be called from list-sexp-diary-entries, where DATE is bound.
+;;;###diary-autoload
 (defun diary-coptic-date ()
   "Coptic calendar equivalent of date diary entry."
   (let ((f (calendar-coptic-date-string date)))
@@ -201,7 +202,7 @@
   (let ((coptic-calendar-epoch ethiopic-calendar-epoch))
     (calendar-coptic-from-absolute date)))
 
-;;;###autoload
+;;;###cal-autoload
 (defun calendar-ethiopic-date-string (&optional date)
   "String of Ethiopic date of Gregorian DATE.
 Returns the empty string if DATE is pre-Ethiopic calendar.
@@ -211,7 +212,7 @@
         (coptic-calendar-month-name-array ethiopic-calendar-month-name-array))
     (calendar-coptic-date-string date)))
 
-;;;###autoload
+;;;###cal-autoload
 (defun calendar-print-ethiopic-date ()
   "Show the Ethiopic calendar equivalent of the selected date."
   (interactive)
@@ -220,7 +221,7 @@
         (coptic-calendar-month-name-array ethiopic-calendar-month-name-array))
     (call-interactively 'calendar-print-coptic-date)))
 
-;;;###autoload
+;;;###cal-autoload
 (defun calendar-goto-ethiopic-date (date &optional noecho)
   "Move cursor to Ethiopic date DATE.
 Echo Ethiopic date unless NOECHO is t."
@@ -234,6 +235,7 @@
   (or noecho (calendar-print-ethiopic-date)))
 
 ;; To be called from list-sexp-diary-entries, where DATE is bound.
+;;;###diary-autoload
 (defun diary-ethiopic-date ()
   "Ethiopic calendar equivalent of date diary entry."
   (let ((coptic-calendar-epoch ethiopic-calendar-epoch)
@@ -243,9 +245,5 @@
 
 (provide 'cal-coptic)
 
-;; Local Variables:
-;; generated-autoload-file: "cal-loaddefs.el"
-;; End:
-
 ;; arch-tag: 72d49161-25df-4072-9312-b182cdca7627
 ;;; cal-coptic.el ends here