Mercurial > emacs
changeset 92903:eaaa58ed78d4
Re-indent.
(calendar-goto-persian-date): Doc fix.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Fri, 14 Mar 2008 03:11:50 +0000 |
parents | d77fc175bcfc |
children | 66a73bbde687 |
files | lisp/calendar/cal-persia.el |
diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/cal-persia.el Fri Mar 14 03:10:37 2008 +0000 +++ b/lisp/calendar/cal-persia.el Fri Mar 14 03:11:50 2008 +0000 @@ -98,7 +98,7 @@ (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 @@ (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 @@ ;;;###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 @@ (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))