# HG changeset patch # User Glenn Morris # Date 1205012174 0 # Node ID 678337768a803fe05ed6a73ed1295956438aae12 # Parent abf9226ae6c94f35adec7ad3a069e061bba2748a (diary-bahai-mark-entries) (diary-bahai-insert-entry, diary-bahai-insert-monthly-entry) (diary-bahai-insert-yearly-entry): Doc fixes. diff -r abf9226ae6c9 -r 678337768a80 lisp/calendar/cal-bahai.el --- a/lisp/calendar/cal-bahai.el Sat Mar 08 21:34:30 2008 +0000 +++ b/lisp/calendar/cal-bahai.el Sat Mar 08 21:36:14 2008 +0000 @@ -305,16 +305,15 @@ (defun diary-bahai-mark-entries () "Mark days in the calendar window that have Bahá'í date diary entries. -Each entry in diary-file (or included files) visible in the calendar -window is marked. Bahá'í date entries are prefaced by a -bahai-diary-entry-symbol \(normally a B`I'). The same -diary-date-forms govern the style of the Bahá'í calendar entries, +Each entry in `diary-file' (or included files) visible in the calendar +window is marked. Bahá'í date entries are prefaced by +`bahai-diary-entry-symbol' (normally a \"B\"). The same +`diary-date-forms' govern the style of the Bahá'í calendar entries, except that the Bahá'í month names must be spelled in full. The Bahá'í months are numbered from 1 to 12 with Bahá being 1 and 12 being -`Alá. Bahá'í date diary entries that begin with a -diary-nonmarking-symbol will not be marked in the calendar. This -function is provided for use as part of the -nongregorian-diary-marking-hook." +`Alá. Bahá'í date diary entries that begin with `diary-nonmarking-symbol' +will not be marked in the calendar. This function is provided for use as +part of `nongregorian-diary-marking-hook'." (let ((d diary-date-forms)) (while d (let* @@ -475,7 +474,7 @@ (defun diary-bahai-insert-entry (arg) "Insert a diary entry. For the Bahá'í date corresponding to the date indicated by point. -Prefix arg will make the entry nonmarking." +Prefix argument ARG makes the entry nonmarking." (interactive "P") (let* ((calendar-month-name-array calendar-bahai-month-name-array)) (make-diary-entry @@ -492,7 +491,7 @@ (defun diary-bahai-insert-monthly-entry (arg) "Insert a monthly diary entry. For the day of the Bahá'í month corresponding to the date indicated by point. -Prefix arg will make the entry nonmarking." +Prefix argument ARG makes the entry nonmarking." (interactive "P") (let* ((calendar-date-display-form (if european-calendar-style '(day " * ") '("* " day ))) @@ -510,7 +509,7 @@ (defun diary-bahai-insert-yearly-entry (arg) "Insert an annual diary entry. For the day of the Bahá'í year corresponding to the date indicated by point. -Prefix arg will make the entry nonmarking." +Prefix argument ARG will make the entry nonmarking." (interactive "P") (let* ((calendar-date-display-form (if european-calendar-style