From: Glenn Morris <rgm@gnu.org>
Date: Tue, 1 Apr 2008 02:43:30 +0000 (+0000)
Subject: (Commentary): Point to calendar.el.
X-Git-Tag: emacs-pretest-23.0.90~6727
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5e9977663650995435f90e00e4517f49ef55310;p=emacs.git

(Commentary): Point to calendar.el.
(calendar-persian-date-string): Reduce nesting of some lets.
---

diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el
index 419286face2..3855a31557e 100644
--- a/lisp/calendar/cal-persia.el
+++ b/lisp/calendar/cal-persia.el
@@ -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 ()