(cmpl-hours-since-origin): Fix bug:

microseconds count was being used instead of seconds count.

(cmpl-hours-since-origin): Fix bug:
microseconds count was being used instead of seconds count.
5a3d3a16 · Richard M. Stallman · 42f30377 · 5a3d3a16
Commit 5a3d3a16 authored Jul 23, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 3 deletions

lisp/completion.el lisp/completion.el +1 -3

No files found.
--- a/lisp/completion.el
+++ b/lisp/completion.el
@@ -470,9 +470,7 @@ Used to decide whether to save completions.")

 (defun cmpl-hours-since-origin ()
  (let ((time (current-time)))
-    (truncate
-     (+ (* (/ (car time) 3600.0) (lsh 1 16))
-	(/ (nth 2 time) 3600.0)))))
+    (floor (+ (* 65536.0 (nth 0 time)) (nth 1 time)) 3600)))

 ;;---------------------------------------------------------------------------
 ;; "Symbol" parsing functions