Commit e5e99776 authored by Glenn Morris's avatar Glenn Morris

(Commentary): Point to calendar.el.

(calendar-persian-date-string): Reduce nesting of some lets.
parent b36e906d
......@@ -27,8 +27,7 @@
;;; Commentary:
;; This collection of functions implements the features of calendar.el and
;; diary.el that deal with the Persian calendar.
;; See calendar.el.
;;; Code:
......@@ -148,13 +147,13 @@ Gregorian date Sunday, December 31, 1 BC."
(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)))
(day (int-to-string (extract-calendar-day persian-date)))
(dayname nil)
(month (int-to-string m))
(year (int-to-string y)))
(mapconcat 'eval calendar-date-display-form ""))))
(m (extract-calendar-month persian-date))
(monthname (aref persian-calendar-month-name-array (1- m)))
(day (int-to-string (extract-calendar-day persian-date)))
(year (int-to-string y))
(month (int-to-string m))
dayname)
(mapconcat 'eval calendar-date-display-form "")))
;;;###cal-autoload
(defun calendar-print-persian-date ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment