aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2012-02-17 22:08:15 -0500
committerGlenn Morris2012-02-17 22:08:15 -0500
commit6818b4492e78a911c9397da47d2bc6c7b1051456 (patch)
treed8d42e63e774fdfeb8ee82c392983c85b0d549df
parenta5987767c5be19c845a5c81ab05097ecfbd5aff0 (diff)
downloademacs-6818b4492e78a911c9397da47d2bc6c7b1051456.tar.gz
emacs-6818b4492e78a911c9397da47d2bc6c7b1051456.zip
Use utf-8 Baha'i in calendar doc-strings, menus, etc
* lisp/calendar/cal-menu.el (cal-menu-diary-menu, cal-menu-goto-menu): * lisp/calendar/calendar.el (diary-file, diary-bahai-entry-symbol) (calendar-bahai-all-holidays-flag, calendar-other-dates): * lisp/calendar/diary-lib.el (diary-abbreviated-year-flag): * lisp/calendar/holidays.el (holiday-bahai-holidays) (calendar-holidays, list-holidays): Use utf-8 Baha'i in doc-strings, menus, etc.
-rw-r--r--lisp/ChangeLog10
-rw-r--r--lisp/calendar/cal-menu.el8
-rw-r--r--lisp/calendar/calendar.el15
-rw-r--r--lisp/calendar/diary-lib.el6
-rw-r--r--lisp/calendar/holidays.el26
5 files changed, 44 insertions, 21 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cbb9265a35e..f9c6498125b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,13 @@
12012-02-18 Glenn Morris <rgm@gnu.org>
2
3 * calendar/cal-menu.el (cal-menu-diary-menu, cal-menu-goto-menu):
4 * calendar/calendar.el (diary-file, diary-bahai-entry-symbol)
5 (calendar-bahai-all-holidays-flag, calendar-other-dates):
6 * calendar/diary-lib.el (diary-abbreviated-year-flag):
7 * calendar/holidays.el (holiday-bahai-holidays)
8 (calendar-holidays, list-holidays):
9 Use utf-8 Bahá'í in doc-strings, menus, etc.
10
12012-02-17 Tassilo Horn <tassilo@member.fsf.org> 112012-02-17 Tassilo Horn <tassilo@member.fsf.org>
2 12
3 * saveplace.el (save-place-ignore-files-regexp): New variable 13 * saveplace.el (save-place-ignore-files-regexp): New variable
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el
index ec40ef084eb..d4546125f3e 100644
--- a/lisp/calendar/cal-menu.el
+++ b/lisp/calendar/cal-menu.el
@@ -52,7 +52,7 @@
52 ["Insert Anniversary" diary-insert-anniversary-entry] 52 ["Insert Anniversary" diary-insert-anniversary-entry]
53 ["Insert Block" diary-insert-block-entry] 53 ["Insert Block" diary-insert-block-entry]
54 ["Insert Cyclic" diary-insert-cyclic-entry] 54 ["Insert Cyclic" diary-insert-cyclic-entry]
55 ("Insert Baha'i" 55 ("Insert Bahá'í"
56 ["One time" diary-bahai-insert-entry] 56 ["One time" diary-bahai-insert-entry]
57 ["Monthly" diary-bahai-insert-monthly-entry] 57 ["Monthly" diary-bahai-insert-monthly-entry]
58 ["Yearly" diary-bahai-insert-yearly-entry]) 58 ["Yearly" diary-bahai-insert-yearly-entry])
@@ -127,7 +127,7 @@
127 ["Astronomical Date" calendar-astro-goto-day-number] 127 ["Astronomical Date" calendar-astro-goto-day-number]
128 ["Hebrew Date" calendar-hebrew-goto-date] 128 ["Hebrew Date" calendar-hebrew-goto-date]
129 ["Persian Date" calendar-persian-goto-date] 129 ["Persian Date" calendar-persian-goto-date]
130 ["Baha'i Date" calendar-bahai-goto-date] 130 ["Bahá'í Date" calendar-bahai-goto-date]
131 ["Islamic Date" calendar-islamic-goto-date] 131 ["Islamic Date" calendar-islamic-goto-date]
132 ["Julian Date" calendar-julian-goto-date] 132 ["Julian Date" calendar-julian-goto-date]
133 ["Chinese Date" calendar-chinese-goto-date] 133 ["Chinese Date" calendar-chinese-goto-date]
@@ -282,4 +282,8 @@ is non-nil."
282 282
283(provide 'cal-menu) 283(provide 'cal-menu)
284 284
285;; Local Variables:
286;; coding: utf-8
287;; End:
288
285;;; cal-menu.el ends here 289;;; cal-menu.el ends here
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el
index 905600cfb74..24c284350a3 100644
--- a/lisp/calendar/calendar.el
+++ b/lisp/calendar/calendar.el
@@ -41,7 +41,7 @@
41;; can be translated from the (usual) Gregorian calendar to the day of 41;; can be translated from the (usual) Gregorian calendar to the day of
42;; the year/days remaining in year, to the ISO commercial calendar, to 42;; the year/days remaining in year, to the ISO commercial calendar, to
43;; the Julian (old style) calendar, to the Hebrew calendar, to the 43;; the Julian (old style) calendar, to the Hebrew calendar, to the
44;; Islamic calendar, to the Baha'i calendar, to the French 44;; Islamic calendar, to the Bahá'í calendar, to the French
45;; Revolutionary calendar, to the Mayan calendar, to the Chinese 45;; Revolutionary calendar, to the Mayan calendar, to the Chinese
46;; calendar, to the Coptic calendar, to the Ethiopic calendar, and to 46;; calendar, to the Coptic calendar, to the Ethiopic calendar, and to
47;; the astronomical (Julian) day number. Times of sunrise/sunset can 47;; the astronomical (Julian) day number. Times of sunrise/sunset can
@@ -52,7 +52,7 @@
52;; The following files are part of the calendar/diary code: 52;; The following files are part of the calendar/diary code:
53 53
54;; appt.el Appointment notification 54;; appt.el Appointment notification
55;; cal-bahai.el Baha'i calendar 55;; cal-bahai.el Bahá'í calendar
56;; cal-china.el Chinese calendar 56;; cal-china.el Chinese calendar
57;; cal-coptic.el Coptic/Ethiopic calendars 57;; cal-coptic.el Coptic/Ethiopic calendars
58;; cal-dst.el Daylight saving time rules 58;; cal-dst.el Daylight saving time rules
@@ -642,7 +642,7 @@ causes the diary entry \"Vacation\" to appear from November 1 through
642November 10, 1990. See the documentation for the function 642November 10, 1990. See the documentation for the function
643`diary-list-sexp-entries' for more details. 643`diary-list-sexp-entries' for more details.
644 644
645Diary entries based on the Hebrew, the Islamic and/or the Baha'i 645Diary entries based on the Hebrew, the Islamic and/or the Bahá'í
646calendar are also possible, but because these are somewhat slow, they 646calendar are also possible, but because these are somewhat slow, they
647are ignored unless you set the `diary-nongregorian-listing-hook' and 647are ignored unless you set the `diary-nongregorian-listing-hook' and
648the `diary-nongregorian-marking-hook' appropriately. See the 648the `diary-nongregorian-marking-hook' appropriately. See the
@@ -679,7 +679,7 @@ details, see the documentation for the variable `diary-list-entries-hook'."
679 'diary-bahai-entry-symbol "23.1") 679 'diary-bahai-entry-symbol "23.1")
680 680
681(defcustom diary-bahai-entry-symbol "B" 681(defcustom diary-bahai-entry-symbol "B"
682 "Symbol indicating a diary entry according to the Baha'i calendar." 682 "Symbol indicating a diary entry according to the Bahá'í calendar."
683 :type 'string 683 :type 'string
684 :group 'diary) 684 :group 'diary)
685 685
@@ -1005,9 +1005,9 @@ calendar."
1005 'calendar-bahai-all-holidays-flag "23.1") 1005 'calendar-bahai-all-holidays-flag "23.1")
1006 1006
1007(defcustom calendar-bahai-all-holidays-flag nil 1007(defcustom calendar-bahai-all-holidays-flag nil
1008 "If nil, show only major holidays from the Baha'i calendar. 1008 "If nil, show only major holidays from the Bahá'í calendar.
1009These are the days on which work and school must be suspended. 1009These are the days on which work and school must be suspended.
1010Otherwise, show all the holidays that would appear in a complete Baha'i 1010Otherwise, show all the holidays that would appear in a complete Bahá'í
1011calendar." 1011calendar."
1012 :type 'boolean 1012 :type 'boolean
1013 :group 'holidays) 1013 :group 'holidays)
@@ -2552,7 +2552,7 @@ DATE is (month day year). Calendars that do not apply are omitted."
2552 (unless (string-equal 2552 (unless (string-equal
2553 (setq odate (calendar-bahai-date-string date)) 2553 (setq odate (calendar-bahai-date-string date))
2554 "") 2554 "")
2555 (format "Baha'i date: %s" odate)) 2555 (format "Bahá'í date: %s" odate))
2556 (format "Chinese date: %s" 2556 (format "Chinese date: %s"
2557 (calendar-chinese-date-string date)) 2557 (calendar-chinese-date-string date))
2558 (unless (string-equal 2558 (unless (string-equal
@@ -2624,6 +2624,7 @@ If called by a mouse-event, pops up a menu with the result."
2624 2624
2625;; Local variables: 2625;; Local variables:
2626;; byte-compile-dynamic: t 2626;; byte-compile-dynamic: t
2627;; coding: utf-8
2627;; End: 2628;; End:
2628 2629
2629;;; calendar.el ends here 2630;;; calendar.el ends here
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 4bcd9916d0c..2e073fd1267 100644
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -337,7 +337,7 @@ expressions that can involve the keywords `days' (a number), `date'
337 337
338(defcustom diary-abbreviated-year-flag t 338(defcustom diary-abbreviated-year-flag t
339 "Interpret a two-digit year DD in a diary entry as either 19DD or 20DD. 339 "Interpret a two-digit year DD in a diary entry as either 19DD or 20DD.
340This applies to the Gregorian, Hebrew, Islamic, and Baha'i calendars. 340This applies to the Gregorian, Hebrew, Islamic, and Bahá'í calendars.
341When the current century is added to a two-digit year, if the result 341When the current century is added to a two-digit year, if the result
342is more than 50 years in the future, the previous century is assumed. 342is more than 50 years in the future, the previous century is assumed.
343If the result is more than 50 years in the past, the next century is assumed. 343If the result is more than 50 years in the past, the next century is assumed.
@@ -2624,4 +2624,8 @@ user is asked to confirm its addition."
2624 2624
2625(provide 'diary-lib) 2625(provide 'diary-lib)
2626 2626
2627;; Local Variables:
2628;; coding: utf-8
2629;; End:
2630
2627;;; diary-lib.el ends here 2631;;; diary-lib.el ends here
diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el
index d20f2194885..37f511f7990 100644
--- a/lisp/calendar/holidays.el
+++ b/lisp/calendar/holidays.el
@@ -292,16 +292,16 @@ See the documentation for `calendar-holidays' for details."
292 (mapcar 'purecopy 292 (mapcar 'purecopy
293 '((holiday-bahai-new-year) 293 '((holiday-bahai-new-year)
294 (holiday-bahai-ridvan) ; respects calendar-bahai-all-holidays-flag 294 (holiday-bahai-ridvan) ; respects calendar-bahai-all-holidays-flag
295 (holiday-fixed 5 23 "Declaration of the Bab") 295 (holiday-fixed 5 23 "Declaration of the Báb")
296 (holiday-fixed 5 29 "Ascension of Baha'u'llah") 296 (holiday-fixed 5 29 "Ascension of Bahá'u'lláh")
297 (holiday-fixed 7 9 "Martyrdom of the Bab") 297 (holiday-fixed 7 9 "Martyrdom of the Báb")
298 (holiday-fixed 10 20 "Birth of the Bab") 298 (holiday-fixed 10 20 "Birth of the Báb")
299 (holiday-fixed 11 12 "Birth of Baha'u'llah") 299 (holiday-fixed 11 12 "Birth of Bahá'u'lláh")
300 (if calendar-bahai-all-holidays-flag 300 (if calendar-bahai-all-holidays-flag
301 (append 301 (append
302 (holiday-fixed 11 26 "Day of the Covenant") 302 (holiday-fixed 11 26 "Day of the Covenant")
303 (holiday-fixed 11 28 "Ascension of `Abdu'l-Baha"))))) 303 (holiday-fixed 11 28 "Ascension of `Abdu'l-Bahá")))))
304 "Baha'i holidays. 304 "Bahá'í holidays.
305See the documentation for `calendar-holidays' for details." 305See the documentation for `calendar-holidays' for details."
306 :type 'sexp 306 :type 'sexp
307 :group 'holidays) 307 :group 'holidays)
@@ -376,7 +376,7 @@ Several basic functions are provided for this purpose:
376 K>0, and MONTH's last day otherwise. 376 K>0, and MONTH's last day otherwise.
377 (holiday-hebrew MONTH DAY STRING) a fixed date on the Hebrew calendar 377 (holiday-hebrew MONTH DAY STRING) a fixed date on the Hebrew calendar
378 (holiday-islamic MONTH DAY STRING) a fixed date on the Islamic calendar 378 (holiday-islamic MONTH DAY STRING) a fixed date on the Islamic calendar
379 (holiday-bahai MONTH DAY STRING) a fixed date on the Baha'i calendar 379 (holiday-bahai MONTH DAY STRING) a fixed date on the Bahá'í calendar
380 (holiday-julian MONTH DAY STRING) a fixed date on the Julian calendar 380 (holiday-julian MONTH DAY STRING) a fixed date on the Julian calendar
381 (holiday-sexp SEXP STRING) SEXP is a Gregorian-date-valued expression 381 (holiday-sexp SEXP STRING) SEXP is a Gregorian-date-valued expression
382 in the variable `year'; if it evaluates to 382 in the variable `year'; if it evaluates to
@@ -404,11 +404,11 @@ To add the Islamic feast celebrating Mohammed's birthday, use
404 (holiday-islamic 3 12 \"Mohammed's Birthday\") 404 (holiday-islamic 3 12 \"Mohammed's Birthday\")
405 405
406since the Islamic months are numbered from 1 starting with Muharram. 406since the Islamic months are numbered from 1 starting with Muharram.
407To add an entry for the Baha'i festival of Ridvan, use 407To add an entry for the Bahá'í festival of Ridvan, use
408 408
409 (holiday-bahai 2 13 \"Festival of Ridvan\") 409 (holiday-bahai 2 13 \"Festival of Ridvan\")
410 410
411since the Baha'i months are numbered from 1 starting with Baha. 411since the Bahá'í months are numbered from 1 starting with Bahá.
412To add Thomas Jefferson's birthday, April 2, 1743 (Julian), use 412To add Thomas Jefferson's birthday, April 2, 1743 (Julian), use
413 413
414 (holiday-julian 4 2 \"Jefferson's Birthday\") 414 (holiday-julian 4 2 \"Jefferson's Birthday\")
@@ -582,7 +582,7 @@ The optional LABEL is used to label the buffer created."
582 (if holiday-islamic-holidays 582 (if holiday-islamic-holidays
583 (cons "Islamic" holiday-islamic-holidays)) 583 (cons "Islamic" holiday-islamic-holidays))
584 (if holiday-bahai-holidays 584 (if holiday-bahai-holidays
585 (cons "Baha'i" holiday-bahai-holidays)) 585 (cons "Bahá'í" holiday-bahai-holidays))
586 (if holiday-oriental-holidays 586 (if holiday-oriental-holidays
587 (cons "Oriental" holiday-oriental-holidays)) 587 (cons "Oriental" holiday-oriental-holidays))
588 (if holiday-solar-holidays 588 (if holiday-solar-holidays
@@ -920,4 +920,8 @@ is non-nil)."
920 920
921(provide 'holidays) 921(provide 'holidays)
922 922
923;; Local Variables:
924;; coding: utf-8
925;; End:
926
923;;; holidays.el ends here 927;;; holidays.el ends here