X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Ftime-date.el;fp=lisp%2Ftime-date.el;h=db7a35e652117766f92ba4ec29468ec99a070fb8;hb=e7b89fdbd5b964b512e70e7d89b4a0248e2e550e;hp=b3a50f11654da717c5e3b5af4ab17078f3167c55;hpb=62bb349be72fcd9f3547abc0db9cda65f1b68fcf;p=elisp%2Fgnus.git-

diff --git a/lisp/time-date.el b/lisp/time-date.el
index b3a50f1..db7a35e 100644
--- a/lisp/time-date.el
+++ b/lisp/time-date.el
@@ -78,7 +78,7 @@
 
 (defun date-to-day (date)
   "Return the number of days between year 1 and DATE."
-  (time-to-day (date-to-time date)))
+  (time-to-days (date-to-time date)))
   
 (defun days-between (date1 date2)
   "Return the number of days between DATE1 and DATE2."
@@ -103,7 +103,7 @@
 	(setq day-of-year (1+ day-of-year))))
     day-of-year))
 
-(defun time-to-day (time)
+(defun time-to-days (time)
   "The number of days between the Gregorian date 0001-12-31bce and TIME.
 The Gregorian date Sunday, December 31, 1bce is imaginary."
   (let* ((tim (decode-time time))