diff options
| author | Glenn Morris | 2012-02-17 22:08:15 -0500 |
|---|---|---|
| committer | Glenn Morris | 2012-02-17 22:08:15 -0500 |
| commit | 6818b4492e78a911c9397da47d2bc6c7b1051456 (patch) | |
| tree | d8d42e63e774fdfeb8ee82c392983c85b0d549df | |
| parent | a5987767c5be19c845a5c81ab05097ecfbd5aff0 (diff) | |
| download | emacs-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/ChangeLog | 10 | ||||
| -rw-r--r-- | lisp/calendar/cal-menu.el | 8 | ||||
| -rw-r--r-- | lisp/calendar/calendar.el | 15 | ||||
| -rw-r--r-- | lisp/calendar/diary-lib.el | 6 | ||||
| -rw-r--r-- | lisp/calendar/holidays.el | 26 |
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 @@ | |||
| 1 | 2012-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 | |||
| 1 | 2012-02-17 Tassilo Horn <tassilo@member.fsf.org> | 11 | 2012-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 | |||
| 642 | November 10, 1990. See the documentation for the function | 642 | November 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 | ||
| 645 | Diary entries based on the Hebrew, the Islamic and/or the Baha'i | 645 | Diary entries based on the Hebrew, the Islamic and/or the Bahá'í |
| 646 | calendar are also possible, but because these are somewhat slow, they | 646 | calendar are also possible, but because these are somewhat slow, they |
| 647 | are ignored unless you set the `diary-nongregorian-listing-hook' and | 647 | are ignored unless you set the `diary-nongregorian-listing-hook' and |
| 648 | the `diary-nongregorian-marking-hook' appropriately. See the | 648 | the `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. |
| 1009 | These are the days on which work and school must be suspended. | 1009 | These are the days on which work and school must be suspended. |
| 1010 | Otherwise, show all the holidays that would appear in a complete Baha'i | 1010 | Otherwise, show all the holidays that would appear in a complete Bahá'í |
| 1011 | calendar." | 1011 | calendar." |
| 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. |
| 340 | This applies to the Gregorian, Hebrew, Islamic, and Baha'i calendars. | 340 | This applies to the Gregorian, Hebrew, Islamic, and Bahá'í calendars. |
| 341 | When the current century is added to a two-digit year, if the result | 341 | When the current century is added to a two-digit year, if the result |
| 342 | is more than 50 years in the future, the previous century is assumed. | 342 | is more than 50 years in the future, the previous century is assumed. |
| 343 | If the result is more than 50 years in the past, the next century is assumed. | 343 | If 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. |
| 305 | See the documentation for `calendar-holidays' for details." | 305 | See 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 | ||
| 406 | since the Islamic months are numbered from 1 starting with Muharram. | 406 | since the Islamic months are numbered from 1 starting with Muharram. |
| 407 | To add an entry for the Baha'i festival of Ridvan, use | 407 | To 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 | ||
| 411 | since the Baha'i months are numbered from 1 starting with Baha. | 411 | since the Bahá'í months are numbered from 1 starting with Bahá. |
| 412 | To add Thomas Jefferson's birthday, April 2, 1743 (Julian), use | 412 | To 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 |