diff options
author | Glenn Morris <[email protected]> | 2008-08-10 20:07:11 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2008-08-10 20:07:11 +0000 |
commit | 9cc03d33081054a625d3a766d68d307e49c8802e (patch) | |
tree | 8c7e4edd4a23a0f05931a9e7b174ba2f1ab4fc41 | |
parent | 00d66ed4bd76f3d91320e6bf4c4de424b50ab923 (diff) |
(calendar-nth-named-absday, calendar-nth-named-day):
Doc fixes (sync from trunk 2008-04-29).
-rw-r--r-- | lisp/calendar/calendar.el | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/lisp/calendar/calendar.el b/lisp/calendar/calendar.el index 0bd8a8e3e4..dae55bf1f8 100644 --- a/lisp/calendar/calendar.el +++ b/lisp/calendar/calendar.el @@ -3052,12 +3052,11 @@ date d, and applying it to d+7 gives the DAYNAME following absolute date d." (- 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 @@ If DAY is omitted, it defaults to 1 if N>0, and MONTH's last day otherwise." 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))) |