Mercurial > emacs
comparison lisp/calendar/cal-hebrew.el @ 86489:997f6a0ad183
(holiday-filter-visible-calendar)
(add-to-diary-list, diary-name-pattern)
(mark-calendar-days-named): Declare as functions.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 27 Nov 2007 04:13:34 +0000 |
| parents | e2eac01cf548 |
| children | 107ccd98fa12 53108e6cea98 |
comparison
equal
deleted
inserted
replaced
| 86488:41a473ff321a | 86489:997f6a0ad183 |
|---|---|
| 298 (let ((date (calendar-gregorian-from-absolute | 298 (let ((date (calendar-gregorian-from-absolute |
| 299 (calendar-absolute-from-hebrew | 299 (calendar-absolute-from-hebrew |
| 300 (list month day year))))) | 300 (list month day year))))) |
| 301 (if (calendar-date-is-visible-p date) | 301 (if (calendar-date-is-visible-p date) |
| 302 (list (list date string)))))))) | 302 (list (list date string)))))))) |
| 303 | |
| 304 ;; h-r-h-e should be called from holidays code. | |
| 305 (declare-function holiday-filter-visible-calendar "holidays" (l)) | |
| 303 | 306 |
| 304 (defun holiday-rosh-hashanah-etc () | 307 (defun holiday-rosh-hashanah-etc () |
| 305 "List of dates related to Rosh Hashanah, as visible in calendar window." | 308 "List of dates related to Rosh Hashanah, as visible in calendar window." |
| 306 (if (or (< displayed-month 8) | 309 (if (or (< displayed-month 8) |
| 307 (> displayed-month 11)) | 310 (> displayed-month 11)) |
| 497 (if (= (% abs-t-a 7) 6) (1+ abs-t-a) abs-t-a)) | 500 (if (= (% abs-t-a 7) 6) (1+ abs-t-a) abs-t-a)) |
| 498 "Tisha B'Av") | 501 "Tisha B'Av") |
| 499 (list (calendar-gregorian-from-absolute | 502 (list (calendar-gregorian-from-absolute |
| 500 (calendar-dayname-on-or-before 6 (+ abs-t-a 7))) | 503 (calendar-dayname-on-or-before 6 (+ abs-t-a 7))) |
| 501 "Shabbat Nahamu")))))) | 504 "Shabbat Nahamu")))))) |
| 505 | |
| 506 ;; l-h-d-e should be called from diary code. | |
| 507 (declare-function add-to-diary-list "diary-lib" | |
| 508 (date string specifier &optional marker globcolor literal)) | |
| 502 | 509 |
| 503 (defun list-hebrew-diary-entries () | 510 (defun list-hebrew-diary-entries () |
| 504 "Add any Hebrew date entries from the diary file to `diary-entries-list'. | 511 "Add any Hebrew date entries from the diary file to `diary-entries-list'. |
| 505 Hebrew date diary entries must be prefaced by `hebrew-diary-entry-symbol' | 512 Hebrew date diary entries must be prefaced by `hebrew-diary-entry-symbol' |
| 506 \(normally an `H'). The same diary date forms govern the style of the Hebrew | 513 \(normally an `H'). The same diary date forms govern the style of the Hebrew |
| 658 (= day h-day)) | 665 (= day h-day)) |
| 659 (or (zerop year) | 666 (or (zerop year) |
| 660 (= year h-year)) | 667 (= year h-year)) |
| 661 (mark-visible-calendar-date | 668 (mark-visible-calendar-date |
| 662 (calendar-gregorian-from-absolute date))))))))) | 669 (calendar-gregorian-from-absolute date))))))))) |
| 670 | |
| 671 (declare-function diary-name-pattern "diary-lib" | |
| 672 (string-array &optional abbrev-array paren)) | |
| 673 | |
| 674 (declare-function mark-calendar-days-named "diary-lib" | |
| 675 (dayname &optional color)) | |
| 663 | 676 |
| 664 (defun mark-hebrew-diary-entries () | 677 (defun mark-hebrew-diary-entries () |
| 665 "Mark days in the calendar window that have Hebrew date diary entries. | 678 "Mark days in the calendar window that have Hebrew date diary entries. |
| 666 Each entry in diary-file (or included files) visible in the calendar window | 679 Each entry in diary-file (or included files) visible in the calendar window |
| 667 is marked. Hebrew date entries are prefaced by a hebrew-diary-entry-symbol | 680 is marked. Hebrew date entries are prefaced by a hebrew-diary-entry-symbol |