Mercurial > emacs

changeset 103562:decf5e666b9e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-time-zone-daylight-rules): Simplify Persian conditionals.
author Glenn Morris <rgm@gnu.org>
date Tue, 23 Jun 2009 07:30:25 +0000
parents c2bcca5f9ba3
children 1c5f849edf58
files lisp/ChangeLog lisp/calendar/cal-dst.el
diffstat 2 files changed, 9 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Tue Jun 23 07:28:19 2009 +0000
+++ b/lisp/ChangeLog	Tue Jun 23 07:30:25 2009 +0000
@@ -1,5 +1,8 @@
 2009-06-23  Glenn Morris  <rgm@gnu.org>
 
+	* calendar/cal-dst.el (calendar-time-zone-daylight-rules):
+	Simplify Persian conditionals.
+
 	* calc/calc-graph.el (calc-graph-plot): Avoid assignment to free
 	variable `filename'.
 
--- a/lisp/calendar/cal-dst.el	Tue Jun 23 07:28:19 2009 +0000
+++ b/lisp/calendar/cal-dst.el	Tue Jun 23 07:30:25 2009 +0000
@@ -212,12 +212,12 @@
              rlist)
            ;; 01-01 and 07-01 for this year's Persian calendar.
            ;; FIXME what does the Persian calendar have to do with this?
-           (if (and (= m 3) (<= 20 d) (<= d 21))
-               '((calendar-gregorian-from-absolute
-                  (calendar-persian-to-absolute `(1 1 ,(- year 621))))))
-           (if (and (= m 9) (<= 22 d) (<= d 23))
-               '((calendar-gregorian-from-absolute
-                  (calendar-persian-to-absolute `(7 1 ,(- year 621))))))))
+           (and (= m 3) (memq d '(20 21))
+                '((calendar-gregorian-from-absolute
+                   (calendar-persian-to-absolute `(1 1 ,(- year 621))))))
+           (and (= m 9) (memq d '(22 23))
+                '((calendar-gregorian-from-absolute
+                   (calendar-persian-to-absolute `(7 1 ,(- year 621))))))))
          (prevday-sec (- -1 utc-diff)) ; last sec of previous local day
          (year (1+ y))
          new-rules)