projects
/
elisp
/
apel.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8f72402
)
* poe-18.el (current-time-string): Fixed leap year's day counting bug.
author
teranisi
<teranisi>
Tue, 29 Feb 2000 01:32:38 +0000
(
01:32
+0000)
committer
teranisi
<teranisi>
Tue, 29 Feb 2000 01:32:38 +0000
(
01:32
+0000)
ChangeLog
patch
|
blob
|
history
poe-18.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
a8883bb
..
2531dea
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,7
@@
+2000-02-29 Yuuichi Teranishi <teranisi@gohome.org>
+
+ * poe-18.el (current-time-string): Fixed leap year's day counting bug.
+
2000-02-28 Katsumi Yamaoka <yamaoka@jpl.org>
* emu.el (enriched-encode): Do nothing for it if FSF Emacs 19.28
2000-02-28 Katsumi Yamaoka <yamaoka@jpl.org>
* emu.el (enriched-encode): Do nothing for it if FSF Emacs 19.28
diff --git
a/poe-18.el
b/poe-18.el
index
93bc836
..
0edb4d8
100644
(file)
--- a/
poe-18.el
+++ b/
poe-18.el
@@
-355,10
+355,8
@@
and from `file-attributes'."
(setq lyear (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 (= mm 1) lyear)
- (setq dd (- dd 29))
- (setq dd (- dd (nth mm mdays))))
+ (while (> (- dd (if (and lyear (= mm 1)) 29 (nth mm mdays))) 0)
+ (setq dd (- dd (if (and lyear (= mm 1)) 29 (nth mm mdays))))
(setq mm (1+ mm)))
(setq HH (/ low 3600)
low (% low 3600)
(setq mm (1+ mm)))
(setq HH (/ low 3600)
low (% low 3600)