changeset 92638:8feda75f862e

(phases-of-moon, lunar-new-moon-on-or-after): Doc fixes.

--- a/lisp/calendar/lunar.el	Sat Mar 08 20:32:29 2008 +0000
+++ b/lisp/calendar/lunar.el	Sat Mar 08 20:35:51 2008 +0000
@@ -224,8 +224,7 @@
 ;;;###autoload
 (defun phases-of-moon (&optional arg)
   "Display the quarters of the moon for last month, this month, and next month.
-If called with an optional prefix argument, prompts for month and year.
-
+If called with an optional prefix argument ARG, prompts for month and year.
 This function is suitable for execution in a .emacs file."
   (interactive "P")
   (save-excursion
@@ -238,7 +237,6 @@
 
 (defun diary-phases-of-moon (&optional mark)
 "Moon phases diary entry.
-
 An optional parameter MARK specifies a face or single-character string to
 use when highlighting the day in the calendar."
   (let* ((index (* 4
@@ -256,10 +254,8 @@
         (cons mark (concat (lunar-phase-name (car (cdr (cdr phase)))) " "
                 (car (cdr phase)))))))
 
-
 ;;  For the Chinese calendar the calculations for the new moon need to be more
 ;;  accurate than those above, so we use more terms in the approximation.
-
 (defun lunar-new-moon-time (k)
   "Astronomical (Julian) day number of K th new moon."
   (let* ((T (/ k 1236.85))
@@ -368,8 +364,8 @@
        (/ calendar-time-zone 60.0 24.0))))
 
 (defun lunar-new-moon-on-or-after (d)
-  "Astronomical (Julian) day number of first new moon on or after astronomical
-\(Julian) day number d.  The fractional part is the time of day.
+  "Julian day number of first new moon on or after Julian day number D.
+The fractional part is the time of day.
 
 The date and time are local time, including any daylight saving rules,
 as governed by the values of calendar-daylight-savings-starts,