# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1218398831 0
# Node ID c96e0ea166fc8870bd96fa2c24596f4cb1e43b2e
# Parent  818d77e04d721e45d99fc9ba4675f61860a25c93
(calendar-nth-named-absday, calendar-nth-named-day):
Doc fixes (sync from trunk 2008-04-29).

diff -r 818d77e04d72 -r c96e0ea166fc lisp/calendar/calendar.el
--- a/lisp/calendar/calendar.el	Sun Aug 10 20:06:46 2008 +0000
+++ b/lisp/calendar/calendar.el	Sun Aug 10 20:07:11 2008 +0000
@@ -3052,12 +3052,11 @@
   (- date (% (- date dayname) 7)))
 
 (defun calendar-nth-named-absday (n dayname month year &optional day)
-  "The absolute date of Nth DAYNAME in MONTH, YEAR before/after optional DAY.
-A DAYNAME of 0 means Sunday, 1 means Monday, and so on.  If N<0,
-return the Nth DAYNAME before MONTH DAY, YEAR (inclusive).
+  "Absolute date of the Nth DAYNAME after/before MONTH YEAR DAY.
+A DAYNAME of 0 means Sunday, 1 means Monday, and so on.
 If N>0, return the Nth DAYNAME after MONTH DAY, YEAR (inclusive).
-
-If DAY is omitted, it defaults to 1 if N>0, and MONTH's last day otherwise."
+If N<0, return the Nth DAYNAME before MONTH DAY, YEAR (inclusive).
+DAY defaults to 1 if N>0, and MONTH's last day otherwise."
   (if (> n 0)
       (+ (* 7 (1- n))
 	 (calendar-dayname-on-or-before
@@ -3073,12 +3072,8 @@
 	       year))))))
 
 (defun calendar-nth-named-day (n dayname month year &optional day)
-  "The date of Nth DAYNAME in MONTH, YEAR before/after optional DAY.
-A DAYNAME of 0 means Sunday, 1 means Monday, and so on.  If N<0,
-return the Nth DAYNAME before MONTH DAY, YEAR (inclusive).
-If N>0, return the Nth DAYNAME after MONTH DAY, YEAR (inclusive).
-
-If DAY is omitted, it defaults to 1 if N>0, and MONTH's last day otherwise."
+  "Date of the Nth DAYNAME after/before MONTH YEAR DAY.
+Like `calendar-nth-named-absday', but returns a Gregorian date."
   (calendar-gregorian-from-absolute
    (calendar-nth-named-absday n dayname month year day)))