From e5e9977663650995435f90e00e4517f49ef55310 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 1 Apr 2008 02:43:30 +0000 Subject: [PATCH] (Commentary): Point to calendar.el. (calendar-persian-date-string): Reduce nesting of some lets. --- lisp/calendar/cal-persia.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/lisp/calendar/cal-persia.el b/lisp/calendar/cal-persia.el index 419286face..3855a31557 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 () -- 2.39.2