diff options
| author | Glenn Morris | 2008-03-13 05:44:04 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-03-13 05:44:04 +0000 |
| commit | 9e85002daced7ba2abd85bcb526e7e80847e5464 (patch) | |
| tree | 5729368ad6e8726f293ec2992c246dede55c2ae5 | |
| parent | d3a0e5bf712df4ea9a7f0d3aa486a8c966b70ec9 (diff) | |
| download | emacs-9e85002daced7ba2abd85bcb526e7e80847e5464.tar.gz emacs-9e85002daced7ba2abd85bcb526e7e80847e5464.zip | |
(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.
| -rw-r--r-- | lisp/calendar/cal-islam.el | 21 | ||||
| -rw-r--r-- | lisp/calendar/cal-iso.el | 13 |
2 files changed, 16 insertions, 18 deletions
diff --git a/lisp/calendar/cal-islam.el b/lisp/calendar/cal-islam.el index 13bc0c8e339..6c915e2b8cf 100644 --- a/lisp/calendar/cal-islam.el +++ b/lisp/calendar/cal-islam.el | |||
| @@ -117,7 +117,7 @@ Gregorian date Sunday, December 31, 1 BC." | |||
| 117 | (1- (calendar-absolute-from-islamic (list month 1 year)))))) | 117 | (1- (calendar-absolute-from-islamic (list month 1 year)))))) |
| 118 | (list month day year)))) | 118 | (list month day year)))) |
| 119 | 119 | ||
| 120 | ;;;###autoload | 120 | ;;;###cal-autoload |
| 121 | (defun calendar-islamic-date-string (&optional date) | 121 | (defun calendar-islamic-date-string (&optional date) |
| 122 | "String of Islamic date before sunset of Gregorian DATE. | 122 | "String of Islamic date before sunset of Gregorian DATE. |
| 123 | Returns the empty string if DATE is pre-Islamic. | 123 | Returns the empty string if DATE is pre-Islamic. |
| @@ -131,7 +131,7 @@ Driven by the variable `calendar-date-display-form'." | |||
| 131 | "" | 131 | "" |
| 132 | (calendar-date-string islamic-date nil t)))) | 132 | (calendar-date-string islamic-date nil t)))) |
| 133 | 133 | ||
| 134 | ;;;###autoload | 134 | ;;;###cal-autoload |
| 135 | (defun calendar-print-islamic-date () | 135 | (defun calendar-print-islamic-date () |
| 136 | "Show the Islamic calendar equivalent of the date under the cursor." | 136 | "Show the Islamic calendar equivalent of the date under the cursor." |
| 137 | (interactive) | 137 | (interactive) |
| @@ -140,7 +140,7 @@ Driven by the variable `calendar-date-display-form'." | |||
| 140 | (message "Date is pre-Islamic") | 140 | (message "Date is pre-Islamic") |
| 141 | (message "Islamic date (until sunset): %s" i)))) | 141 | (message "Islamic date (until sunset): %s" i)))) |
| 142 | 142 | ||
| 143 | ;;;###autoload | 143 | ;;;###cal-autoload |
| 144 | (defun calendar-goto-islamic-date (date &optional noecho) | 144 | (defun calendar-goto-islamic-date (date &optional noecho) |
| 145 | "Move cursor to Islamic DATE; echo Islamic date unless NOECHO is t." | 145 | "Move cursor to Islamic DATE; echo Islamic date unless NOECHO is t." |
| 146 | (interactive | 146 | (interactive |
| @@ -169,6 +169,7 @@ Driven by the variable `calendar-date-display-form'." | |||
| 169 | (calendar-absolute-from-islamic date))) | 169 | (calendar-absolute-from-islamic date))) |
| 170 | (or noecho (calendar-print-islamic-date))) | 170 | (or noecho (calendar-print-islamic-date))) |
| 171 | 171 | ||
| 172 | ;;;###holiday-autoload | ||
| 172 | (defun holiday-islamic (month day string) | 173 | (defun holiday-islamic (month day string) |
| 173 | "Holiday on MONTH, DAY (Islamic) called STRING. | 174 | "Holiday on MONTH, DAY (Islamic) called STRING. |
| 174 | If MONTH, DAY (Islamic) is visible, the value returned is corresponding | 175 | If MONTH, DAY (Islamic) is visible, the value returned is corresponding |
| @@ -195,6 +196,7 @@ nil if it is not visible in the current calendar window." | |||
| 195 | 196 | ||
| 196 | (defvar number) ; from diary-list-entries | 197 | (defvar number) ; from diary-list-entries |
| 197 | 198 | ||
| 199 | ;;;###diary-autoload | ||
| 198 | (defun list-islamic-diary-entries () | 200 | (defun list-islamic-diary-entries () |
| 199 | "Add any Islamic date entries from the diary file to `diary-entries-list'. | 201 | "Add any Islamic date entries from the diary file to `diary-entries-list'. |
| 200 | Islamic date diary entries must be prefaced by `islamic-diary-entry-symbol' | 202 | Islamic date diary entries must be prefaced by `islamic-diary-entry-symbol' |
| @@ -288,6 +290,7 @@ marked in the calendar. This function is provided for use with | |||
| 288 | (declare-function mark-calendar-days-named "diary-lib" | 290 | (declare-function mark-calendar-days-named "diary-lib" |
| 289 | (dayname &optional color)) | 291 | (dayname &optional color)) |
| 290 | 292 | ||
| 293 | ;;;###diary-autoload | ||
| 291 | (defun mark-islamic-diary-entries () | 294 | (defun mark-islamic-diary-entries () |
| 292 | "Mark days in the calendar window that have Islamic date diary entries. | 295 | "Mark days in the calendar window that have Islamic date diary entries. |
| 293 | Each entry in `diary-file' (or included files) visible in the calendar window | 296 | Each entry in `diary-file' (or included files) visible in the calendar window |
| @@ -391,6 +394,7 @@ provided for use as part of the `nongregorian-diary-marking-hook'." | |||
| 391 | (mark-islamic-calendar-date-pattern mm dd yy))))) | 394 | (mark-islamic-calendar-date-pattern mm dd yy))))) |
| 392 | (setq d (cdr d))))) | 395 | (setq d (cdr d))))) |
| 393 | 396 | ||
| 397 | ;;;###diary-autoload | ||
| 394 | (defun mark-islamic-calendar-date-pattern (month day year) | 398 | (defun mark-islamic-calendar-date-pattern (month day year) |
| 395 | "Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR. | 399 | "Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR. |
| 396 | A value of 0 in any position is a wildcard." | 400 | A value of 0 in any position is a wildcard." |
| @@ -449,7 +453,7 @@ A value of 0 in any position is a wildcard." | |||
| 449 | (mark-visible-calendar-date | 453 | (mark-visible-calendar-date |
| 450 | (calendar-gregorian-from-absolute date))))))))) | 454 | (calendar-gregorian-from-absolute date))))))))) |
| 451 | 455 | ||
| 452 | ;;;###autoload | 456 | ;;;###cal-autoload |
| 453 | (defun insert-islamic-diary-entry (arg) | 457 | (defun insert-islamic-diary-entry (arg) |
| 454 | "Insert a diary entry. | 458 | "Insert a diary entry. |
| 455 | For the Islamic date corresponding to the date indicated by point. | 459 | For the Islamic date corresponding to the date indicated by point. |
| @@ -466,7 +470,7 @@ Prefix argument ARG makes the entry nonmarking." | |||
| 466 | nil t)) | 470 | nil t)) |
| 467 | arg))) | 471 | arg))) |
| 468 | 472 | ||
| 469 | ;;;###autoload | 473 | ;;;###cal-autoload |
| 470 | (defun insert-monthly-islamic-diary-entry (arg) | 474 | (defun insert-monthly-islamic-diary-entry (arg) |
| 471 | "Insert a monthly diary entry. | 475 | "Insert a monthly diary entry. |
| 472 | For the day of the Islamic month corresponding to the date indicated by point. | 476 | For the day of the Islamic month corresponding to the date indicated by point. |
| @@ -484,7 +488,7 @@ Prefix argument ARG makes the entry nonmarking." | |||
| 484 | (calendar-cursor-to-date t))))) | 488 | (calendar-cursor-to-date t))))) |
| 485 | arg))) | 489 | arg))) |
| 486 | 490 | ||
| 487 | ;;;###autoload | 491 | ;;;###cal-autoload |
| 488 | (defun insert-yearly-islamic-diary-entry (arg) | 492 | (defun insert-yearly-islamic-diary-entry (arg) |
| 489 | "Insert an annual diary entry. | 493 | "Insert an annual diary entry. |
| 490 | For the day of the Islamic year corresponding to the date indicated by point. | 494 | For the day of the Islamic year corresponding to the date indicated by point. |
| @@ -507,6 +511,7 @@ Prefix argument ARG makes the entry nonmarking." | |||
| 507 | (defvar date) | 511 | (defvar date) |
| 508 | 512 | ||
| 509 | ;; To be called from diary-sexp-entry, where DATE, ENTRY are bound. | 513 | ;; To be called from diary-sexp-entry, where DATE, ENTRY are bound. |
| 514 | ;;;###diary-autoload | ||
| 510 | (defun diary-islamic-date () | 515 | (defun diary-islamic-date () |
| 511 | "Islamic calendar equivalent of date diary entry." | 516 | "Islamic calendar equivalent of date diary entry." |
| 512 | (let ((i (calendar-islamic-date-string date))) | 517 | (let ((i (calendar-islamic-date-string date))) |
| @@ -516,9 +521,5 @@ Prefix argument ARG makes the entry nonmarking." | |||
| 516 | 521 | ||
| 517 | (provide 'cal-islam) | 522 | (provide 'cal-islam) |
| 518 | 523 | ||
| 519 | ;; Local Variables: | ||
| 520 | ;; generated-autoload-file: "cal-loaddefs.el" | ||
| 521 | ;; End: | ||
| 522 | |||
| 523 | ;; arch-tag: a951b6c1-6f47-48d5-bac3-1b505cd719f7 | 524 | ;; arch-tag: a951b6c1-6f47-48d5-bac3-1b505cd719f7 |
| 524 | ;;; cal-islam.el ends here | 525 | ;;; cal-islam.el ends here |
diff --git a/lisp/calendar/cal-iso.el b/lisp/calendar/cal-iso.el index 9a79efd4ffc..65b1debb672 100644 --- a/lisp/calendar/cal-iso.el +++ b/lisp/calendar/cal-iso.el | |||
| @@ -74,7 +74,7 @@ date Sunday, December 31, 1 BC." | |||
| 74 | (% date 7) | 74 | (% date 7) |
| 75 | year))) | 75 | year))) |
| 76 | 76 | ||
| 77 | ;;;###autoload | 77 | ;;;###cal-autoload |
| 78 | (defun calendar-iso-date-string (&optional date) | 78 | (defun calendar-iso-date-string (&optional date) |
| 79 | "String of ISO date of Gregorian DATE, default today." | 79 | "String of ISO date of Gregorian DATE, default today." |
| 80 | (let* ((d (calendar-absolute-from-gregorian | 80 | (let* ((d (calendar-absolute-from-gregorian |
| @@ -86,7 +86,7 @@ date Sunday, December 31, 1 BC." | |||
| 86 | (extract-calendar-month iso-date) | 86 | (extract-calendar-month iso-date) |
| 87 | (extract-calendar-year iso-date)))) | 87 | (extract-calendar-year iso-date)))) |
| 88 | 88 | ||
| 89 | ;;;###autoload | 89 | ;;;###cal-autoload |
| 90 | (defun calendar-print-iso-date () | 90 | (defun calendar-print-iso-date () |
| 91 | "Show equivalent ISO date for the date under the cursor." | 91 | "Show equivalent ISO date for the date under the cursor." |
| 92 | (interactive) | 92 | (interactive) |
| @@ -117,7 +117,7 @@ taken to be 1)." | |||
| 117 | 1))) | 117 | 1))) |
| 118 | (list (list week day year)))) | 118 | (list (list week day year)))) |
| 119 | 119 | ||
| 120 | ;;;###autoload | 120 | ;;;###cal-autoload |
| 121 | (defun calendar-goto-iso-date (date &optional noecho) | 121 | (defun calendar-goto-iso-date (date &optional noecho) |
| 122 | "Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil." | 122 | "Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil." |
| 123 | (interactive (calendar-iso-read-args t)) | 123 | (interactive (calendar-iso-read-args t)) |
| @@ -125,7 +125,7 @@ taken to be 1)." | |||
| 125 | (calendar-absolute-from-iso date))) | 125 | (calendar-absolute-from-iso date))) |
| 126 | (or noecho (calendar-print-iso-date))) | 126 | (or noecho (calendar-print-iso-date))) |
| 127 | 127 | ||
| 128 | ;;;###autoload | 128 | ;;;###cal-autoload |
| 129 | (defun calendar-goto-iso-week (date &optional noecho) | 129 | (defun calendar-goto-iso-week (date &optional noecho) |
| 130 | "Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil. | 130 | "Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil. |
| 131 | Interactively, goes to the first day of the specified week." | 131 | Interactively, goes to the first day of the specified week." |
| @@ -137,15 +137,12 @@ Interactively, goes to the first day of the specified week." | |||
| 137 | (defvar date) | 137 | (defvar date) |
| 138 | 138 | ||
| 139 | ;; To be called from list-sexp-diary-entries, where DATE is bound. | 139 | ;; To be called from list-sexp-diary-entries, where DATE is bound. |
| 140 | ;;;###diary-autoload | ||
| 140 | (defun diary-iso-date () | 141 | (defun diary-iso-date () |
| 141 | "ISO calendar equivalent of date diary entry." | 142 | "ISO calendar equivalent of date diary entry." |
| 142 | (format "ISO date: %s" (calendar-iso-date-string date))) | 143 | (format "ISO date: %s" (calendar-iso-date-string date))) |
| 143 | 144 | ||
| 144 | (provide 'cal-iso) | 145 | (provide 'cal-iso) |
| 145 | 146 | ||
| 146 | ;; Local Variables: | ||
| 147 | ;; generated-autoload-file: "cal-loaddefs.el" | ||
| 148 | ;; End: | ||
| 149 | |||
| 150 | ;; arch-tag: 3c0154cc-d30f-4981-9f60-42bdf7a468f6 | 147 | ;; arch-tag: 3c0154cc-d30f-4981-9f60-42bdf7a468f6 |
| 151 | ;;; cal-iso.el ends here | 148 | ;;; cal-iso.el ends here |