Mercurial > emacs

changeset 1357:d1bd58483c59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Dox fix.
author Christopher Zaborsky <rogue@erratum.com>
date Tue, 06 Oct 1992 21:06:25 +0000
parents dcf780f7ae1b
children aa32c275cbf9
files lisp/=diary-lib.el
diffstat 1 files changed, 15 insertions(+), 13 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=diary-lib.el	Tue Oct 06 21:01:11 1992 +0000
+++ b/lisp/=diary-lib.el	Tue Oct 06 21:06:25 1992 +0000
@@ -972,8 +972,8 @@
       (setq d (cdr d)))))
 
 (defun mark-hebrew-calendar-date-pattern (month day year)
-  "Mark all dates in the calendar window that conform to the Hebrew date
-MONTH/DAY/YEAR.  A value of 0 in any position is a wild-card."
+  "Mark dates in calendar window that conform to Hebrew date MONTH/DAY/YEAR.
+A value of 0 in any position is a wild-card."
   (save-excursion
     (set-buffer calendar-buffer)
     (if (and (/= 0 month) (/= 0 day))
@@ -1244,8 +1244,9 @@
         nil))))
 
 (defun diary-block (m1 d1 y1 m2 d2 y2)
-  "Block diary entry--entry applies if date is between two dates.  Order of
-the parameters is M1, D1, Y1, M2, D2, Y2 `european-calendar-style' is nil, and
+  "Block diary entry.
+Entry applies if date is between two dates.  Order of the parameters is
+M1, D1, Y1, M2, D2, Y2 `european-calendar-style' is nil, and
 D1, M1, Y1, D2, M2, Y2 if `european-calendar-style' is t."
   (let ((date1 (calendar-absolute-from-gregorian
                 (if european-calendar-style
@@ -1274,9 +1275,10 @@
         entry)))
 
 (defun diary-anniversary (month day year)
-  "Anniversary diary entry--entry applies if date is the anniversary of
-MONTH, DAY, YEAR if `european-calendar-style' is nil, and DAY, MONTH, YEAR
-if `european-calendar-style' is t.  Diary entry can contain `%d' or `%d%s'; the
+  "Anniversary diary entry.
+Entry applies if date is the anniversary of MONTH, DAY, YEAR if
+`european-calendar-style' is nil, and DAY, MONTH, YEAR if
+`european-calendar-style' is t.  Diary entry can contain `%d' or `%d%s'; the
 %d will be replaced by the number of years since the MONTH DAY, YEAR and the
 %s will be replaced by the ordinal ending of that number (that is, `st', `nd',
 `rd' or `th', as appropriate.  The anniversary of February 29 is considered
@@ -1372,8 +1374,8 @@
           (+ 1721425 (calendar-absolute-from-gregorian date))))
 
 (defun diary-omer ()
-  "Omer count diary entry--entry applies if date is within 50 days after
-Passover."
+  "Omer count diary entry.
+Entry applies if date is within 50 days after Passover."
   (let* ((passover
           (calendar-absolute-from-hebrew
            (list 1 15 (+ (extract-calendar-year date) 3760))))
@@ -1423,8 +1425,8 @@
                       (t "th"))))))
 
 (defun diary-rosh-hodesh ()
-  "Rosh Hodesh diary entry--entry applies if date is Rosh Hodesh, the day
-before, or the Saturday before."
+  "Rosh Hodesh diary entry.
+Entry applies if date is Rosh Hodesh, the day before, or the Saturday before."
   (let* ((d (calendar-absolute-from-gregorian date))
          (h-date (calendar-hebrew-from-absolute d))
          (h-month (extract-calendar-month h-date))
@@ -1853,8 +1855,8 @@
       (setq d (cdr d)))))
 
 (defun mark-islamic-calendar-date-pattern (month day year)
-  "Mark all dates in the calendar window that conform to the Islamic date
-MONTH/DAY/YEAR.  A value of 0 in any position is a wild-card."
+  "Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR.
+A value of 0 in any position is a wild-card."
   (save-excursion
     (set-buffer calendar-buffer)
     (if (and (/= 0 month) (/= 0 day))