Mercurial > emacs
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