jadged a leap year wrongly (was Re: Nemacs cl mod problem)

[Mito]

※ "寺" こと teranisi ＠ gohome.org さんの
   『Re: Nemacs cl mod problem』より

寺> …というわけで、poe-18.el から floor を削除しました。

寺> ;; apel/timezone.el が floor を使っていましたが、
寺> ;; こちらは cl がなくても動くよう、floor を使わないようにしておきました。

＃ poe-18.el で忘れていたのを思い出しました。

current-time-string と current-time のうるう年の判定で、

(and (zerop (% yyyy 4))
     (or (not (zerop (% yyyy 100)))
         (zerop (% yyyy 400))))

となっている部分があると思いますが、正しくは、こうだと思われ
ます↓。

(and (zerop (% yyyy 4))
     (or (zerop (% yyyy 400))
         (not (zerop (% yyyy 100)))))

いまさらなんですが、どうもすみませんでした。

現在 NEmacs を使っておらず、動作確認等できませんので diff 形
式ではありませんが、一応ご報告まで。
-- 
1/16 12:54頃
NECソフトウェア新潟 水戸