procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(diary-bahai-mark-entries)

Browse source 
(diary-bahai-insert-entry, diary-bahai-insert-monthly-entry)
(diary-bahai-insert-yearly-entry): Doc fixes.
This commit is contained in:
Glenn Morris 2008-03-08 21:36:14 +00:00
parent 9c68082d89
commit 2c4abeb8e8
1 changed files with 10 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/calendar/cal-bahai.el
View file

@ -305,16 +305,15 @@ calendar. This function is provided for use with the
(defun diary-bahai-mark-entries () (defun diary-bahai-mark-entries ()
"Mark days in the calendar window that have Bahá'í date diary 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 Each entry in `diary-file' (or included files) visible in the calendar
window is marked. Bahá'í date entries are prefaced by a window is marked. Bahá'í date entries are prefaced by
bahai-diary-entry-symbol \(normally a B`I'). The same `bahai-diary-entry-symbol' (normally a \"B\"). The same
diary-date-forms govern the style of the Bahá'í calendar entries, `diary-date-forms' govern the style of the Bahá'í calendar entries,
except that the Bahá'í month names must be spelled in full. The 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 Bahá'í months are numbered from 1 to 12 with Bahá being 1 and 12 being
`Alá. Bahá'í date diary entries that begin with a `Alá. Bahá'í date diary entries that begin with `diary-nonmarking-symbol'
diary-nonmarking-symbol will not be marked in the calendar. This will not be marked in the calendar. This function is provided for use as
function is provided for use as part of the part of `nongregorian-diary-marking-hook'."
nongregorian-diary-marking-hook."
(let ((d diary-date-forms)) (let ((d diary-date-forms))
(while d (while d
(let* (let*
@ -475,7 +474,7 @@ A value of 0 in any position is a wildcard."
(defun diary-bahai-insert-entry (arg) (defun diary-bahai-insert-entry (arg)
"Insert a diary entry. "Insert a diary entry.
For the Bahá'í date corresponding to the date indicated by point. 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") (interactive "P")
(let* ((calendar-month-name-array calendar-bahai-month-name-array)) (let* ((calendar-month-name-array calendar-bahai-month-name-array))
(make-diary-entry (make-diary-entry
@ -492,7 +491,7 @@ Prefix arg will make the entry nonmarking."
(defun diary-bahai-insert-monthly-entry (arg) (defun diary-bahai-insert-monthly-entry (arg)
"Insert a monthly diary entry. "Insert a monthly diary entry.
For the day of the Bahá'í month corresponding to the date indicated by point. 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") (interactive "P")
(let* ((calendar-date-display-form (let* ((calendar-date-display-form
(if european-calendar-style '(day " * ") '("* " day ))) (if european-calendar-style '(day " * ") '("* " day )))
@ -510,7 +509,7 @@ Prefix arg will make the entry nonmarking."
(defun diary-bahai-insert-yearly-entry (arg) (defun diary-bahai-insert-yearly-entry (arg)
"Insert an annual diary entry. "Insert an annual diary entry.
For the day of the Bahá'í year corresponding to the date indicated by point. 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") (interactive "P")
(let* ((calendar-date-display-form (let* ((calendar-date-display-form
(if european-calendar-style (if european-calendar-style