Commit 5a3d3a16 authored by Richard M. Stallman's avatar Richard M. Stallman

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

microseconds count was being used instead of seconds count.
parent 42f30377
...@@ -470,9 +470,7 @@ Used to decide whether to save completions.") ...@@ -470,9 +470,7 @@ Used to decide whether to save completions.")
(defun cmpl-hours-since-origin () (defun cmpl-hours-since-origin ()
(let ((time (current-time))) (let ((time (current-time)))
(truncate (floor (+ (* 65536.0 (nth 0 time)) (nth 1 time)) 3600)))
(+ (* (/ (car time) 3600.0) (lsh 1 16))
(/ (nth 2 time) 3600.0)))))
;;--------------------------------------------------------------------------- ;;---------------------------------------------------------------------------
;; "Symbol" parsing functions ;; "Symbol" parsing functions
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment