Mercurial > emacs

diff lisp/completion.el @ 15774:e3cfe2afed17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(cmpl-hours-since-origin): Fix bug: microseconds count was being used instead of seconds count.
author Richard M. Stallman <rms@gnu.org>
date Tue, 23 Jul 1996 20:01:33 +0000
parents fef6a7e70bf4
children 2a9fdbfcb993
line wrap: on
line diff
--- a/lisp/completion.el	Tue Jul 23 18:30:23 1996 +0000
+++ b/lisp/completion.el	Tue Jul 23 20:01:33 1996 +0000
@@ -470,9 +470,7 @@
 
 (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