[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:00576] ddate-dec bug.
白井(GW は子供と遊んでいるだけ)です。
(ddate-dec '(2000 2 1)) => (2000 1 29)
(ddate-dec '(2000 3 1)) => (2000 2 31) (error になる)
(ddate-dec '(2000 4 1)) => (2000 3 30)
(ddate-dec '(2000 5 1)) => (2000 4 31) (error になる)
# だったかな？
になります。
--- mhc-date.el.orig Wed Apr 26 02:42:48 2000
+++ mhc-date.el Sat May 06 06:30:30 2000
@@ -368,7 +368,8 @@
(if (= dd 1)
(if (= mm 1)
(setq yy (1- yy) mm 12 dd 31)
- (setq mm (1- mm) dd (ddate-days-of-mm date)))
+ (setq mm (1- mm))
+ (setq dd (ddate-days-of-mm (ddate-new yy mm dd))))
(setq dd (1- dd)))
(ddate-new yy mm dd)))
--
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)