Re-indent.

(calendar-goto-persian-date): Doc fix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 74ac07ed1a620f1740ef1c289719ca9d5b0c7014..3deb22ead03c359b4b81bc14db763e3b926afdce 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -22,6 +22,8 @@
        (ethiopic-calendar-month-name-array, ethiopic-name): Add doc strings.
        (coptic-prompt-for-date): Move definition before use.
 
+       * calendar/cal-persia.el (calendar-goto-persian-date): Doc fix.
+
        * calendar/diary-lib.el (mark-diary-entries): Move some constant
        variables outside the diary-date-forms loop.
 

diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el
index 9861dc22910605c508c6615493bd3cdb23a051e9..9a81a7c29a860d28d8fe29c4e1273d0c64bc4561 100644 (file)
--- a/lisp/calendar/cal-persia.el
+++ b/lisp/calendar/cal-persia.el
@@ -98,7 +98,7 @@ Gregorian date Sunday, December 31, 1 BC."
           (floor d1 280506))
          (d2                         ; prior days not in n2820 or n768
           (mod d1 280506))
-         (n1           ; years not in n2820 or n768
+         (n1        ; years not in n2820 or n768
           ;; Want:
           ;; (floor (+ (* 2820 d2) (* 2820 366)) 1029983))
           ;; but that causes overflow, so use the following.
@@ -141,8 +141,8 @@ Gregorian date Sunday, December 31, 1 BC."
 (defun calendar-persian-date-string (&optional date)
   "String of Persian date of Gregorian DATE, default today."
   (let* ((persian-date (calendar-persian-from-absolute
-                       (calendar-absolute-from-gregorian
-                        (or date (calendar-current-date)))))
+                        (calendar-absolute-from-gregorian
+                         (or date (calendar-current-date)))))
          (y (extract-calendar-year persian-date))
          (m (extract-calendar-month persian-date)))
     (let ((monthname (aref persian-calendar-month-name-array (1- m)))
@@ -162,7 +162,7 @@ Gregorian date Sunday, December 31, 1 BC."
 ;;;###cal-autoload
 (defun calendar-goto-persian-date (date &optional noecho)
   "Move cursor to Persian date DATE.
-Echo Persian date unless NOECHO is t."
+Echo Persian date unless NOECHO is non-nil."
   (interactive (persian-prompt-for-date))
   (calendar-goto-date (calendar-gregorian-from-absolute
                        (calendar-absolute-from-persian date)))
@@ -180,11 +180,11 @@ Echo Persian date unless NOECHO is t."
                     (calendar-current-date)))))))
          (completion-ignore-case t)
          (month (cdr (assoc
-                       (completing-read
-                        "Persian calendar month name: "
-                        (mapcar 'list
-                                (append persian-calendar-month-name-array nil))
-                        nil t)
+                      (completing-read
+                       "Persian calendar month name: "
+                       (mapcar 'list
+                               (append persian-calendar-month-name-array nil))
+                       nil t)
                       (calendar-make-alist persian-calendar-month-name-array
                                            1))))
          (last (persian-calendar-last-day-of-month month year))