# HG changeset patch # User Glenn Morris # Date 1205386876 0 # Node ID 8777b384ba72f0fc3d9c8c69574aa909c747afeb # Parent 5d415a63a3445a936e494529d4d6e5188e31112c (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. diff -r 5d415a63a344 -r 8777b384ba72 lisp/calendar/cal-french.el --- 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