# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1207017810 0
# Node ID 426872139a892e37676c1e51c3aa6b5e2ada9883
# Parent  b9615f9270092269698c133f24bc4ebde17e6bee
(Commentary): Point to calendar.el.
(calendar-persian-date-string): Reduce nesting of some lets.

diff -r b9615f927009 -r 426872139a89 lisp/calendar/cal-persia.el
--- a/lisp/calendar/cal-persia.el	Tue Apr 01 02:43:05 2008 +0000
+++ b/lisp/calendar/cal-persia.el	Tue Apr 01 02:43:30 2008 +0000
@@ -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 @@
                         (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 ()