[Emacs-diffs] Changes to emacs/lisp/calendar/cal-persia.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/04/01 02:43:31

Index: cal-persia.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/cal-persia.el,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- cal-persia.el       26 Mar 2008 03:12:02 -0000      1.24
+++ cal-persia.el       1 Apr 2008 02:43:30 -0000       1.25
@@ -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)))
+         (m (extract-calendar-month persian-date))
+         (monthname (aref persian-calendar-month-name-array (1- m)))
           (day (int-to-string (extract-calendar-day persian-date)))
-          (dayname nil)
+         (year (int-to-string y))
           (month (int-to-string m))
-          (year (int-to-string y)))
-      (mapconcat 'eval calendar-date-display-form ""))))
+         dayname)
+    (mapconcat 'eval calendar-date-display-form "")))
 
 ;;;###cal-autoload
 (defun calendar-print-persian-date ()