aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2008-04-05 20:58:10 +0000
committerGlenn Morris2008-04-05 20:58:10 +0000
commit0a83799410b9122bcdd19c9542fa2e91d8311daf (patch)
treee08c4c96876aa4d44ef22b2a794365dfecab1581
parent0b41781b4b01d009a4f857cde0addecb6153d15b (diff)
downloademacs-0a83799410b9122bcdd19c9542fa2e91d8311daf.tar.gz
emacs-0a83799410b9122bcdd19c9542fa2e91d8311daf.zip
Update for chinese and hebrew name changes.
-rw-r--r--lisp/calendar/calendar.el52
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.
929See the documentation for `calendar-holidays' for details." 929See 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)