Mercurial > emacs
changeset 92837:2bcff1e54131
(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:46:32 +0000 |
parents | e4347538b00b |
children | 26dc958b293b |
files | lisp/calendar/cal-persia.el |
diffstat | 1 files changed, 4 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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