Mercurial > emacs
comparison lisp/completion.el @ 15774:e3cfe2afed17
(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 |
comparison
equal
deleted
inserted
replaced
15773:e68aaf2bb5ac | 15774:e3cfe2afed17 |
---|---|
468 ;; (cmpl-merge-string-cases "ABCDEF456" "abc") --> abcdef456 | 468 ;; (cmpl-merge-string-cases "ABCDEF456" "abc") --> abcdef456 |
469 | 469 |
470 | 470 |
471 (defun cmpl-hours-since-origin () | 471 (defun cmpl-hours-since-origin () |
472 (let ((time (current-time))) | 472 (let ((time (current-time))) |
473 (truncate | 473 (floor (+ (* 65536.0 (nth 0 time)) (nth 1 time)) 3600))) |
474 (+ (* (/ (car time) 3600.0) (lsh 1 16)) | |
475 (/ (nth 2 time) 3600.0))))) | |
476 | 474 |
477 ;;--------------------------------------------------------------------------- | 475 ;;--------------------------------------------------------------------------- |
478 ;; "Symbol" parsing functions | 476 ;; "Symbol" parsing functions |
479 ;;--------------------------------------------------------------------------- | 477 ;;--------------------------------------------------------------------------- |
480 ;; The functions symbol-before-point, symbol-under-point, etc. quickly return | 478 ;; The functions symbol-before-point, symbol-under-point, etc. quickly return |