(current-time-string): New local variable `lyear' for leap year;

renamed from `uru' and bind locally.

diff --git a/poe-18.el b/poe-18.el
index 2a0d4ee..f2fb629 100644 (file)
--- a/poe-18.el
+++ b/poe-18.el
@@ -201,7 +201,7 @@ and from `file-attributes'."
          (mnames '("Jan" "Feb" "Mar" "Apr" "May" "Jun" 
                    "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"))
          (wnames '("Sun" "Mon" "Tue" "Wed" "Thu" "Fri" "Sat"))
-         days dd yyyy mm HH MM SS)
+         days dd yyyy lyear mm HH MM SS)
       (if (consp low)
          (setq low (car low)))
       (or (integerp high)
@@ -248,11 +248,11 @@ and from `file-attributes'."
       (if (= high 1)
          (setq low (+ 65536 low)))
       (setq mm 0)
-      (setq uru (and (zerop (% yyyy 4))
-                    (or (not (zerop (% yyyy 100)))
-                        (zerop (% yyyy 400)))))
+      (setq lyear (and (zerop (% yyyy 4))
+                      (or (not (zerop (% yyyy 100)))
+                          (zerop (% yyyy 400)))))
       (while (> (- dd (nth mm mdays)) 0)
-       (if (and (eq mm 1) uru)
+       (if (and (= mm 1) lyear)
            (setq dd (- dd 29))
          (setq dd (- dd (nth mm mdays))))
        (setq mm (1+ mm)))