diff options
| author | Glenn Morris | 2008-04-05 20:58:10 +0000 |
|---|---|---|
| committer | Glenn Morris | 2008-04-05 20:58:10 +0000 |
| commit | 0a83799410b9122bcdd19c9542fa2e91d8311daf (patch) | |
| tree | e08c4c96876aa4d44ef22b2a794365dfecab1581 | |
| parent | 0b41781b4b01d009a4f857cde0addecb6153d15b (diff) | |
| download | emacs-0a83799410b9122bcdd19c9542fa2e91d8311daf.tar.gz emacs-0a83799410b9122bcdd19c9542fa2e91d8311daf.zip | |
Update for chinese and hebrew name changes.
| -rw-r--r-- | lisp/calendar/calendar.el | 52 |
1 files changed, 26 insertions, 26 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index e95df24b942..96d1ca2d68c 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el | |||
| @@ -823,7 +823,7 @@ calendar." | |||
| 823 | 823 | ||
| 824 | ;;;###autoload | 824 | ;;;###autoload |
| 825 | (defvar hebrew-holidays-1 | 825 | (defvar hebrew-holidays-1 |
| 826 | '((holiday-rosh-hashanah-etc) | 826 | '((holiday-hebrew-rosh-hashanah) |
| 827 | (if calendar-hebrew-all-holidays-flag | 827 | (if calendar-hebrew-all-holidays-flag |
| 828 | (holiday-julian | 828 | (holiday-julian |
| 829 | 11 | 829 | 11 |
| @@ -844,7 +844,7 @@ calendar." | |||
| 844 | 844 | ||
| 845 | ;;;###autoload | 845 | ;;;###autoload |
| 846 | (defvar hebrew-holidays-2 | 846 | (defvar hebrew-holidays-2 |
| 847 | '((holiday-hanukkah) ; respects calendar-hebrew-all-holidays-flag | 847 | '((holiday-hebrew-hanukkah) ; respects calendar-hebrew-all-holidays-flag |
| 848 | (if calendar-hebrew-all-holidays-flag | 848 | (if calendar-hebrew-all-holidays-flag |
| 849 | (holiday-hebrew | 849 | (holiday-hebrew |
| 850 | 10 | 850 | 10 |
| @@ -852,7 +852,7 @@ calendar." | |||
| 852 | (calendar-hebrew-from-absolute | 852 | (calendar-hebrew-from-absolute |
| 853 | (calendar-absolute-from-gregorian | 853 | (calendar-absolute-from-gregorian |
| 854 | (list displayed-month 28 displayed-year)))))) | 854 | (list displayed-month 28 displayed-year)))))) |
| 855 | (if (= 6 (% (calendar-absolute-from-hebrew (list 10 10 h-year)) | 855 | (if (= 6 (% (calendar-hebrew-to-absolute (list 10 10 h-year)) |
| 856 | 7)) | 856 | 7)) |
| 857 | 11 10)) | 857 | 11 10)) |
| 858 | "Tzom Teveth")) | 858 | "Tzom Teveth")) |
| @@ -879,14 +879,14 @@ calendar." | |||
| 879 | (s-s | 879 | (s-s |
| 880 | (calendar-hebrew-from-absolute | 880 | (calendar-hebrew-from-absolute |
| 881 | (if (= 6 | 881 | (if (= 6 |
| 882 | (% (calendar-absolute-from-hebrew | 882 | (% (calendar-hebrew-to-absolute |
| 883 | (list 7 1 h-year)) | 883 | (list 7 1 h-year)) |
| 884 | 7)) | 884 | 7)) |
| 885 | (calendar-dayname-on-or-before | 885 | (calendar-dayname-on-or-before |
| 886 | 6 (calendar-absolute-from-hebrew | 886 | 6 (calendar-hebrew-to-absolute |
| 887 | (list 11 17 h-year))) | 887 | (list 11 17 h-year))) |
| 888 | (calendar-dayname-on-or-before | 888 | (calendar-dayname-on-or-before |
| 889 | 6 (calendar-absolute-from-hebrew | 889 | 6 (calendar-hebrew-to-absolute |
| 890 | (list 11 16 h-year)))))) | 890 | (list 11 16 h-year)))))) |
| 891 | (day (extract-calendar-day s-s))) | 891 | (day (extract-calendar-day s-s))) |
| 892 | day) | 892 | day) |
| @@ -898,7 +898,7 @@ calendar." | |||
| 898 | 898 | ||
| 899 | ;;;###autoload | 899 | ;;;###autoload |
| 900 | (defvar hebrew-holidays-4 | 900 | (defvar hebrew-holidays-4 |
| 901 | '((holiday-passover-etc) | 901 | '((holiday-hebrew-passover) |
| 902 | (and calendar-hebrew-all-holidays-flag | 902 | (and calendar-hebrew-all-holidays-flag |
| 903 | (let* ((m displayed-month) | 903 | (let* ((m displayed-month) |
| 904 | (y displayed-year) | 904 | (y displayed-year) |
| @@ -910,7 +910,7 @@ calendar." | |||
| 910 | (= 21 (% year 28))) | 910 | (= 21 (% year 28))) |
| 911 | (holiday-julian 3 26 "Kiddush HaHamah")) | 911 | (holiday-julian 3 26 "Kiddush HaHamah")) |
| 912 | (if calendar-hebrew-all-holidays-flag | 912 | (if calendar-hebrew-all-holidays-flag |
| 913 | (holiday-tisha-b-av-etc))) | 913 | (holiday-hebrew-tisha-b-av))) |
| 914 | "Component of the default value of `hebrew-holidays'.") | 914 | "Component of the default value of `hebrew-holidays'.") |
| 915 | ;;;###autoload | 915 | ;;;###autoload |
| 916 | (put 'hebrew-holidays-4 'risky-local-variable t) | 916 | (put 'hebrew-holidays-4 'risky-local-variable t) |
| @@ -918,12 +918,12 @@ calendar." | |||
| 918 | 918 | ||
| 919 | ;;;###autoload | 919 | ;;;###autoload |
| 920 | (defcustom hebrew-holidays | 920 | (defcustom hebrew-holidays |
| 921 | '((holiday-passover-etc) | 921 | '((holiday-hebrew-passover) |
| 922 | (holiday-rosh-hashanah-etc) | 922 | (holiday-hebrew-rosh-hashanah) |
| 923 | (holiday-hanukkah) | 923 | (holiday-hebrew-hanukkah) |
| 924 | (if calendar-hebrew-all-holidays-flag | 924 | (if calendar-hebrew-all-holidays-flag |
| 925 | (append | 925 | (append |
| 926 | (holiday-tisha-b-av-etc) | 926 | (holiday-hebrew-tisha-b-av) |
| 927 | (holiday-hebrew-misc)))) | 927 | (holiday-hebrew-misc)))) |
| 928 | "Jewish holidays. | 928 | "Jewish holidays. |
| 929 | See the documentation for `calendar-holidays' for details." | 929 | See the documentation for `calendar-holidays' for details." |
| @@ -1262,14 +1262,14 @@ with disabled undo. Leaves point at point-min, displays BUFFER." | |||
| 1262 | ;; 837 calendar-day-number | 1262 | ;; 837 calendar-day-number |
| 1263 | ;; 775 calendar-absolute-from-gregorian | 1263 | ;; 775 calendar-absolute-from-gregorian |
| 1264 | ;; 346 calendar-last-day-of-month | 1264 | ;; 346 calendar-last-day-of-month |
| 1265 | ;; 286 hebrew-calendar-last-day-of-month | 1265 | ;; 286 calendar-hebrew-last-day-of-month |
| 1266 | ;; 188 hebrew-calendar-leap-year-p | 1266 | ;; 188 calendar-hebrew-leap-year-p |
| 1267 | ;; 180 hebrew-calendar-elapsed-days | 1267 | ;; 180 calendar-hebrew-elapsed-days |
| 1268 | ;; 163 hebrew-calendar-last-month-of-year | 1268 | ;; 163 calendar-hebrew-last-month-of-year |
| 1269 | ;; 66 calendar-date-compare | 1269 | ;; 66 calendar-date-compare |
| 1270 | ;; 65 hebrew-calendar-days-in-year | 1270 | ;; 65 calendar-hebrew-days-in-year |
| 1271 | ;; 60 calendar-julian-to-absolute | 1271 | ;; 60 calendar-julian-to-absolute |
| 1272 | ;; 50 calendar-absolute-from-hebrew | 1272 | ;; 50 calendar-hebrew-to-absolute |
| 1273 | ;; 43 calendar-date-equal | 1273 | ;; 43 calendar-date-equal |
| 1274 | ;; 38 calendar-gregorian-from-absolute | 1274 | ;; 38 calendar-gregorian-from-absolute |
| 1275 | ;; . | 1275 | ;; . |
| @@ -1603,10 +1603,10 @@ after the inserted text. Returns t." | |||
| 1603 | (define-key map "gD" 'calendar-goto-day-of-year) | 1603 | (define-key map "gD" 'calendar-goto-day-of-year) |
| 1604 | (define-key map "gj" 'calendar-julian-goto-date) | 1604 | (define-key map "gj" 'calendar-julian-goto-date) |
| 1605 | (define-key map "ga" 'calendar-astro-goto-day-number) | 1605 | (define-key map "ga" 'calendar-astro-goto-day-number) |
| 1606 | (define-key map "gh" 'calendar-goto-hebrew-date) | 1606 | (define-key map "gh" 'calendar-hebrew-goto-date) |
| 1607 | (define-key map "gi" 'calendar-islamic-goto-date) | 1607 | (define-key map "gi" 'calendar-islamic-goto-date) |
| 1608 | (define-key map "gb" 'calendar-bahai-goto-date) | 1608 | (define-key map "gb" 'calendar-bahai-goto-date) |
| 1609 | (define-key map "gC" 'calendar-goto-chinese-date) | 1609 | (define-key map "gC" 'calendar-chinese-goto-date) |
| 1610 | (define-key map "gk" 'calendar-coptic-goto-date) | 1610 | (define-key map "gk" 'calendar-coptic-goto-date) |
| 1611 | (define-key map "ge" 'calendar-ethiopic-goto-date) | 1611 | (define-key map "ge" 'calendar-ethiopic-goto-date) |
| 1612 | (define-key map "gp" 'calendar-persian-goto-date) | 1612 | (define-key map "gp" 'calendar-persian-goto-date) |
| @@ -1625,7 +1625,7 @@ after the inserted text. Returns t." | |||
| 1625 | (define-key map "S" 'calendar-sunrise-sunset) | 1625 | (define-key map "S" 'calendar-sunrise-sunset) |
| 1626 | (define-key map "M" 'calendar-phases-of-moon) | 1626 | (define-key map "M" 'calendar-phases-of-moon) |
| 1627 | (define-key map " " 'scroll-other-window) | 1627 | (define-key map " " 'scroll-other-window) |
| 1628 | (define-key map (kbd "DEL") 'scroll-other-window-down) | 1628 | (define-key map (kbd "DEL") 'scroll-other-window-down) ; FIXME |
| 1629 | (define-key map "\C-c\C-l" 'redraw-calendar) | 1629 | (define-key map "\C-c\C-l" 'redraw-calendar) |
| 1630 | (define-key map "." 'calendar-goto-today) | 1630 | (define-key map "." 'calendar-goto-today) |
| 1631 | (define-key map "o" 'calendar-other-month) | 1631 | (define-key map "o" 'calendar-other-month) |
| @@ -1639,14 +1639,14 @@ after the inserted text. Returns t." | |||
| 1639 | (define-key map "D" 'view-other-diary-entries) | 1639 | (define-key map "D" 'view-other-diary-entries) |
| 1640 | (define-key map "s" 'diary-show-all-entries) | 1640 | (define-key map "s" 'diary-show-all-entries) |
| 1641 | (define-key map "pd" 'calendar-print-day-of-year) | 1641 | (define-key map "pd" 'calendar-print-day-of-year) |
| 1642 | (define-key map "pC" 'calendar-print-chinese-date) | 1642 | (define-key map "pC" 'calendar-chinese-print-date) |
| 1643 | (define-key map "pk" 'calendar-coptic-print-date) | 1643 | (define-key map "pk" 'calendar-coptic-print-date) |
| 1644 | (define-key map "pe" 'calendar-ethiopic-print-date) | 1644 | (define-key map "pe" 'calendar-ethiopic-print-date) |
| 1645 | (define-key map "pp" 'calendar-persian-print-date) | 1645 | (define-key map "pp" 'calendar-persian-print-date) |
| 1646 | (define-key map "pc" 'calendar-iso-print-date) | 1646 | (define-key map "pc" 'calendar-iso-print-date) |
| 1647 | (define-key map "pj" 'calendar-julian-print-date) | 1647 | (define-key map "pj" 'calendar-julian-print-date) |
| 1648 | (define-key map "pa" 'calendar-astro-print-day-number) | 1648 | (define-key map "pa" 'calendar-astro-print-day-number) |
| 1649 | (define-key map "ph" 'calendar-print-hebrew-date) | 1649 | (define-key map "ph" 'calendar-hebrew-print-date) |
| 1650 | (define-key map "pi" 'calendar-islamic-print-date) | 1650 | (define-key map "pi" 'calendar-islamic-print-date) |
| 1651 | (define-key map "pb" 'calendar-bahai-print-date) | 1651 | (define-key map "pb" 'calendar-bahai-print-date) |
| 1652 | (define-key map "pf" 'calendar-french-print-date) | 1652 | (define-key map "pf" 'calendar-french-print-date) |
| @@ -1659,9 +1659,9 @@ after the inserted text. Returns t." | |||
| 1659 | (define-key map "ia" 'insert-anniversary-diary-entry) | 1659 | (define-key map "ia" 'insert-anniversary-diary-entry) |
| 1660 | (define-key map "ib" 'insert-block-diary-entry) | 1660 | (define-key map "ib" 'insert-block-diary-entry) |
| 1661 | (define-key map "ic" 'insert-cyclic-diary-entry) | 1661 | (define-key map "ic" 'insert-cyclic-diary-entry) |
| 1662 | (define-key map "ihd" 'insert-hebrew-diary-entry) | 1662 | (define-key map "ihd" 'diary-hebrew-insert-entry) |
| 1663 | (define-key map "ihm" 'insert-monthly-hebrew-diary-entry) | 1663 | (define-key map "ihm" 'diary-hebrew-insert-monthly-entry) |
| 1664 | (define-key map "ihy" 'insert-yearly-hebrew-diary-entry) | 1664 | (define-key map "ihy" 'diary-hebrew-insert-yeary-entry) |
| 1665 | (define-key map "iid" 'diary-islamic-insert-entry) | 1665 | (define-key map "iid" 'diary-islamic-insert-entry) |
| 1666 | (define-key map "iim" 'diary-islamic-insert-monthly-entry) | 1666 | (define-key map "iim" 'diary-islamic-insert-monthly-entry) |
| 1667 | (define-key map "iiy" 'diary-islamic-insert-yearly-entry) | 1667 | (define-key map "iiy" 'diary-islamic-insert-yearly-entry) |