Mercurial > emacs
comparison lisp/calendar/cal-html.el @ 92831:65bc0cdc7f5f
(diary-list-entries): Fix autoload.
(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:43:00 +0000 |
| parents | 727105264b1c |
| children | 9b1631fe02a8 |
comparison
equal
deleted
inserted
replaced
| 92830:669faa35f924 | 92831:65bc0cdc7f5f |
|---|---|
| 339 | 339 |
| 340 ;;------------------------------------------------------------ | 340 ;;------------------------------------------------------------ |
| 341 ;; Monthly calendar | 341 ;; Monthly calendar |
| 342 ;;------------------------------------------------------------ | 342 ;;------------------------------------------------------------ |
| 343 | 343 |
| 344 (autoload 'diary-list-entries "diary-lib" nil t) | 344 (autoload 'diary-list-entries "diary-lib") |
| 345 | 345 |
| 346 (defun cal-html-list-diary-entries (d1 d2) | 346 (defun cal-html-list-diary-entries (d1 d2) |
| 347 "Generate a list of all diary-entries from absolute date D1 to D2." | 347 "Generate a list of all diary-entries from absolute date D1 to D2." |
| 348 (let (diary-display-hook) | 348 (let (diary-display-hook) |
| 349 (diary-list-entries | 349 (diary-list-entries |
| 409 (cal-html-monthpage-name month year) dir))))) | 409 (cal-html-monthpage-name month year) dir))))) |
| 410 | 410 |
| 411 | 411 |
| 412 ;;; User commands. | 412 ;;; User commands. |
| 413 | 413 |
| 414 ;;;###autoload | 414 ;;;###cal-autoload |
| 415 (defun cal-html-cursor-month (month year dir) | 415 (defun cal-html-cursor-month (month year dir) |
| 416 "Write an HTML calendar file for numeric MONTH of four-digit YEAR. | 416 "Write an HTML calendar file for numeric MONTH of four-digit YEAR. |
| 417 The output directory DIR is created if necessary. Interactively, | 417 The output directory DIR is created if necessary. Interactively, |
| 418 MONTH and YEAR are taken from the calendar cursor position. Note | 418 MONTH and YEAR are taken from the calendar cursor position. Note |
| 419 that any existing output files are overwritten." | 419 that any existing output files are overwritten." |
| 422 (year (extract-calendar-year date))) | 422 (year (extract-calendar-year date))) |
| 423 (list month year (cal-html-year-dir-ask-user year)))) | 423 (list month year (cal-html-year-dir-ask-user year)))) |
| 424 (make-directory dir t) | 424 (make-directory dir t) |
| 425 (cal-html-one-month month year dir)) | 425 (cal-html-one-month month year dir)) |
| 426 | 426 |
| 427 ;;;###autoload | 427 ;;;###cal-autoload |
| 428 (defun cal-html-cursor-year (year dir) | 428 (defun cal-html-cursor-year (year dir) |
| 429 "Write HTML calendar files (index and monthly pages) for four-digit YEAR. | 429 "Write HTML calendar files (index and monthly pages) for four-digit YEAR. |
| 430 The output directory DIR is created if necessary. Interactively, | 430 The output directory DIR is created if necessary. Interactively, |
| 431 YEAR is taken from the calendar cursor position. Note that any | 431 YEAR is taken from the calendar cursor position. Note that any |
| 432 existing output files are overwritten." | 432 existing output files are overwritten." |
| 441 (cal-html-one-month (1+ i) year dir))) | 441 (cal-html-one-month (1+ i) year dir))) |
| 442 | 442 |
| 443 | 443 |
| 444 (provide 'cal-html) | 444 (provide 'cal-html) |
| 445 | 445 |
| 446 ;; Local Variables: | |
| 447 ;; generated-autoload-file: "cal-loaddefs.el" | |
| 448 ;; End: | |
| 449 | |
| 450 ;; arch-tag: 4e73377d-d2c1-46ea-a103-02c111da5f57 | 446 ;; arch-tag: 4e73377d-d2c1-46ea-a103-02c111da5f57 |
| 451 ;;; cal-html.el ends here | 447 ;;; cal-html.el ends here |