From 80a15570b2572d568dc4ab96c4fa4ed7277333da Mon Sep 17 00:00:00 2001 From: shuhei Date: Tue, 30 Nov 1999 21:01:04 +0000 Subject: [PATCH] (current-time-string): New local variable `lyear' for leap year; renamed from `uru' and bind locally. --- poe-18.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/poe-18.el b/poe-18.el index 2a0d4ee..f2fb629 100644 --- 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))) -- 1.7.10.4