Mercurial > emacs
changeset 4435:4ad99dc50f6f
(cmpl-read-time-eval): Make it no-op.
(cmpl-hours-since-origin): Use truncate to make an integer.
(completion-search-reset): Use completion-prefix-min-length.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 03 Aug 1993 05:46:33 +0000 |
| parents | 265397236749 |
| children | 4f8cf717fca0 |
| files | lisp/completion.el |
| diffstat | 1 files changed, 7 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/completion.el Tue Aug 03 04:36:52 1993 +0000 +++ b/lisp/completion.el Tue Aug 03 05:46:33 1993 +0000 @@ -377,10 +377,9 @@ "True iff the current window is the minibuffer." (window-minibuffer-p (selected-window))) +;; This used to be `(eval form)'. Eval FORM at run time now. (defmacro cmpl-read-time-eval (form) - ;; Like the #. reader macro - (eval form)) - + form) ;;;----------------------------------------------- ;;; String case coercion @@ -444,8 +443,9 @@ (defun cmpl-hours-since-origin () (let ((time (current-time))) - (+ (* (/ (car time) 3600.0) (lsh 1 16)) - (/ (nth 2 time) 3600.0)))) + (truncate + (+ (* (/ (car time) 3600.0) (lsh 1 16)) + (/ (nth 2 time) 3600.0))))) ;;;--------------------------------------------------------------------------- ;;; "Symbol" parsing functions @@ -1579,7 +1579,8 @@ (if completion-to-accept (accept-completion)) (setq cmpl-starting-possibilities (cmpl-prefix-entry-head - (find-cmpl-prefix-entry (downcase (substring string 0 3)))) + (find-cmpl-prefix-entry + (downcase (substring string 0 completion-prefix-min-length)))) cmpl-test-string string cmpl-test-regexp (concat (regexp-quote string) ".")) (completion-search-reset-1)