Mercurial > emacs
changeset 92829:8777b384ba72
(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:41:16 +0000 |
parents | 5d415a63a344 |
children | 669faa35f924 |
files | lisp/calendar/cal-french.el |
diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-french.el Thu Mar 13 05:40:55 2008 +0000 +++ b/lisp/calendar/cal-french.el Thu Mar 13 05:41:16 2008 +0000 @@ -160,7 +160,7 @@ (1- (calendar-absolute-from-french (list month 1 year)))))) (list month day year)))) -;;;###autoload +;;;###cal-autoload (defun calendar-french-date-string (&optional date) "String of French Revolutionary date of Gregorian DATE. Returns the empty string if DATE is pre-French Revolutionary. @@ -186,7 +186,7 @@ (aref (french-calendar-month-name-array) (1- m)) y))))) -;;;###autoload +;;;###cal-autoload (defun calendar-print-french-date () "Show the French Revolutionary calendar equivalent of the selected date." (interactive) @@ -195,7 +195,7 @@ (message "Date is pre-French Revolution") (message "French Revolutionary date: %s" f)))) -;;;###autoload +;;;###cal-autoload (defun calendar-goto-french-date (date &optional noecho) "Move cursor to French Revolutionary date DATE. Echo French Revolutionary date unless NOECHO is t." @@ -250,6 +250,7 @@ (defvar date) ;; To be called from list-sexp-diary-entries, where DATE is bound. +;;;###diary-autoload (defun diary-french-date () "French calendar equivalent of date diary entry." (let ((f (calendar-french-date-string date))) @@ -259,9 +260,5 @@ (provide 'cal-french) -;; Local Variables: -;; generated-autoload-file: "cal-loaddefs.el" -;; End: - ;; arch-tag: 7e8045a3-8609-46b5-9cde-cf40ce541cf9 ;;; cal-french.el ends here