From: Leo Liu <sdl.web@gmail.com>
Date: Fri, 25 Mar 2011 22:11:15 +0000 (+0800)
Subject: Remove unused and erroneous midnight-time-float
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~485
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1f48f7d236dcf7ec26f0f8317cd26a3475126cb8;p=emacs.git

Remove unused and erroneous midnight-time-float
---

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))