Remove unused and erroneous midnight-time-float

2 files changed, 4 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f07ac0953ff..1be233c84b8 100644
--- 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 9a6b162e986..db8f6c5a3df 100644
--- 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))