aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/calendar/cal-bahai.el21
1 files changed, 10 insertions, 11 deletions
diff --git a/lisp/calendar/cal-bahai.el b/lisp/calendar/cal-bahai.el
index 6263cb9bd92..3e522572191 100644
--- a/lisp/calendar/cal-bahai.el
+++ b/lisp/calendar/cal-bahai.el
@@ -305,16 +305,15 @@ calendar. This function is provided for use with the
305 305
306(defun diary-bahai-mark-entries () 306(defun diary-bahai-mark-entries ()
307 "Mark days in the calendar window that have Bahá'í date diary entries. 307 "Mark days in the calendar window that have Bahá'í date diary entries.
308Each entry in diary-file (or included files) visible in the calendar 308Each entry in `diary-file' (or included files) visible in the calendar
309window is marked. Bahá'í date entries are prefaced by a 309window is marked. Bahá'í date entries are prefaced by
310bahai-diary-entry-symbol \(normally a B`I'). The same 310`bahai-diary-entry-symbol' (normally a \"B\"). The same
311diary-date-forms govern the style of the Bahá'í calendar entries, 311`diary-date-forms' govern the style of the Bahá'í calendar entries,
312except that the Bahá'í month names must be spelled in full. The 312except that the Bahá'í month names must be spelled in full. The
313Bahá'í months are numbered from 1 to 12 with Bahá being 1 and 12 being 313Bahá'í months are numbered from 1 to 12 with Bahá being 1 and 12 being
314`Alá. Bahá'í date diary entries that begin with a 314`Alá. Bahá'í date diary entries that begin with `diary-nonmarking-symbol'
315diary-nonmarking-symbol will not be marked in the calendar. This 315will not be marked in the calendar. This function is provided for use as
316function is provided for use as part of the 316part of `nongregorian-diary-marking-hook'."
317nongregorian-diary-marking-hook."
318 (let ((d diary-date-forms)) 317 (let ((d diary-date-forms))
319 (while d 318 (while d
320 (let* 319 (let*
@@ -475,7 +474,7 @@ A value of 0 in any position is a wildcard."
475(defun diary-bahai-insert-entry (arg) 474(defun diary-bahai-insert-entry (arg)
476 "Insert a diary entry. 475 "Insert a diary entry.
477For the Bahá'í date corresponding to the date indicated by point. 476For the Bahá'í date corresponding to the date indicated by point.
478Prefix arg will make the entry nonmarking." 477Prefix argument ARG makes the entry nonmarking."
479 (interactive "P") 478 (interactive "P")
480 (let* ((calendar-month-name-array calendar-bahai-month-name-array)) 479 (let* ((calendar-month-name-array calendar-bahai-month-name-array))
481 (make-diary-entry 480 (make-diary-entry
@@ -492,7 +491,7 @@ Prefix arg will make the entry nonmarking."
492(defun diary-bahai-insert-monthly-entry (arg) 491(defun diary-bahai-insert-monthly-entry (arg)
493 "Insert a monthly diary entry. 492 "Insert a monthly diary entry.
494For the day of the Bahá'í month corresponding to the date indicated by point. 493For the day of the Bahá'í month corresponding to the date indicated by point.
495Prefix arg will make the entry nonmarking." 494Prefix argument ARG makes the entry nonmarking."
496 (interactive "P") 495 (interactive "P")
497 (let* ((calendar-date-display-form 496 (let* ((calendar-date-display-form
498 (if european-calendar-style '(day " * ") '("* " day ))) 497 (if european-calendar-style '(day " * ") '("* " day )))
@@ -510,7 +509,7 @@ Prefix arg will make the entry nonmarking."
510(defun diary-bahai-insert-yearly-entry (arg) 509(defun diary-bahai-insert-yearly-entry (arg)
511 "Insert an annual diary entry. 510 "Insert an annual diary entry.
512For the day of the Bahá'í year corresponding to the date indicated by point. 511For the day of the Bahá'í year corresponding to the date indicated by point.
513Prefix arg will make the entry nonmarking." 512Prefix argument ARG will make the entry nonmarking."
514 (interactive "P") 513 (interactive "P")
515 (let* ((calendar-date-display-form 514 (let* ((calendar-date-display-form
516 (if european-calendar-style 515 (if european-calendar-style