# HG changeset patch # User Glenn Morris # Date 1205387192 0 # Node ID 2bcff1e54131512c80272a42edd4e8c6ca16ee64 # Parent e4347538b00b09bc6f2bc51d5acd954fb954b1ea (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 e4347538b00b -r 2bcff1e54131 lisp/calendar/cal-persia.el --- a/lisp/calendar/cal-persia.el Thu Mar 13 05:46:15 2008 +0000 +++ b/lisp/calendar/cal-persia.el Thu Mar 13 05:46:32 2008 +0000 @@ -137,7 +137,7 @@ (list month 1 year)))))) (list month day year))) -;;;###autoload +;;;###cal-autoload (defun calendar-persian-date-string (&optional date) "String of Persian date of Gregorian DATE, default today." (let* ((persian-date (calendar-persian-from-absolute @@ -152,14 +152,14 @@ (year (int-to-string y))) (mapconcat 'eval calendar-date-display-form "")))) -;;;###autoload +;;;###cal-autoload (defun calendar-print-persian-date () "Show the Persian calendar equivalent of the selected date." (interactive) (message "Persian date: %s" (calendar-persian-date-string (calendar-cursor-to-date t)))) -;;;###autoload +;;;###cal-autoload (defun calendar-goto-persian-date (date &optional noecho) "Move cursor to Persian date DATE. Echo Persian date unless NOECHO is t." @@ -196,15 +196,12 @@ (defvar date) ;; To be called from list-sexp-diary-entries, where DATE is bound. +;;;###diary-autoload (defun diary-persian-date () "Persian calendar equivalent of date diary entry." (format "Persian date: %s" (calendar-persian-date-string date))) (provide 'cal-persia) -;; Local Variables: -;; generated-autoload-file: "cal-loaddefs.el" -;; End: - ;; arch-tag: 2832383c-e4b4-4dc2-8ee9-cfbdd53e5e2d ;;; cal-persia.el ends here