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

microseconds count was being used instead of seconds count.
This commit is contained in:
Richard M. Stallman 1996-07-23 20:01:33 +00:00
parent 42f3037714
commit 5a3d3a1674

View file

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