HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
42f3037
)
(cmpl-hours-since-origin): Fix bug:
author
Richard M. Stallman
<rms@gnu.org>
Tue, 23 Jul 1996 20:01:33 +0000
(20:01 +0000)
committer
Richard M. Stallman
<rms@gnu.org>
Tue, 23 Jul 1996 20:01:33 +0000
(20:01 +0000)
microseconds count was being used instead of seconds count.
lisp/completion.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/completion.el
b/lisp/completion.el
index
835c352
..
6ef5057
100644
(file)
--- a/
lisp/completion.el
+++ b/
lisp/completion.el
@@
-470,9
+470,7
@@
Used to decide whether to save completions.")
\f
(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)))
\f
;;---------------------------------------------------------------------------
;; "Symbol" parsing functions