Remove unused and erroneous midnight-time-float

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f07ac0953ffd32250d4e618af15cf3ebdbc9cea6..1be233c84b839ceb5f6a563fb20901bc1f14ee86 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2011-03-25  Leo Liu  <sdl.web@gmail.com>
 
+       * midnight.el (midnight-time-float): Remove.  Note it calculates
+       the microsecond component incorrectly and seconds-to-time does the
+       same job.
+
        * ido.el (ido-read-internal): Simplify with read-from-minibuffer.
        (ido-completions): Remove unused arguments.  (Bug#8329)
 

diff --git a/lisp/midnight.el b/lisp/midnight.el
index 9a6b162e986776b6db526bec8924dd6c4d4c0c8a..db8f6c5a3df2a5d3838f2215ef216eb7af0db445 100644 (file)
--- a/lisp/midnight.el
+++ b/lisp/midnight.el
@@ -66,12 +66,6 @@ call `cancel-timer' or `timer-activate' on `midnight-timer' instead."
 
 ;;; time conversion
 
-(defun midnight-time-float (num)
-  "Convert the float number of seconds since epoch to the list of 3 integers."
-  (let* ((div (ash 1 16)) (1st (floor num div)))
-    (list 1st (floor (- num (* (float div) 1st)))
-          (round (* 10000000 (mod num 1))))))
-
 (defun midnight-buffer-display-time (&optional buffer)
   "Return the time-stamp of BUFFER, or current buffer, as float."
   (with-current-buffer (or buffer (current-buffer))