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 |