From: Glenn Morris Date: Wed, 2 Apr 2008 03:15:54 +0000 (+0000) Subject: (holiday-chinese-new-year): Use a single let. X-Git-Tag: emacs-pretest-23.0.90~6695 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4ab8ae3c8de4de6403ef71d4f604a88953890ec;p=emacs.git (holiday-chinese-new-year): Use a single let. --- diff --git a/lisp/calendar/cal-china.el b/lisp/calendar/cal-china.el index 51ba42b9a8b..eb07e41477d 100644 --- a/lisp/calendar/cal-china.el +++ b/lisp/calendar/cal-china.el @@ -422,22 +422,21 @@ Gregorian date Sunday, December 31, 1 BC." "Date of Chinese New Year, if visible in calendar. Returns (((MONTH DAY YEAR) TEXT)), where the date is Gregorian." (let ((m displayed-month) - (y displayed-year)) + (y displayed-year) + chinese-new-year) ;; In the Gregorian calendar, CNY falls between Jan 21 and Feb 20. ;; Jan is visible if displayed-month = 12, 1, 2; Feb if d-m = 1, 2, 3. ;; If we shift the calendar forward one month, we can do a ;; one-sided test, namely: d-m <= 4 means CNY might be visible. (increment-calendar-month m y 1) ; shift forward a month - (if (< m 5) - (let ((chinese-new-year - (calendar-gregorian-from-absolute - (cadr (assoc 1 (chinese-year y)))))) - (if (calendar-date-is-visible-p chinese-new-year) - (list - (list chinese-new-year - (format "Chinese New Year (%s)" - (calendar-chinese-sexagesimal-name - (+ y 57)))))))))) + (and (< m 5) + (calendar-date-is-visible-p (setq chinese-new-year + (calendar-gregorian-from-absolute + (cadr (assoc 1 (chinese-year y)))))) + (list + (list chinese-new-year + (format "Chinese New Year (%s)" + (calendar-chinese-sexagesimal-name (+ y 57)))))))) ;;;###cal-autoload (defun calendar-chinese-date-string (&optional date)