diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-08-03 05:46:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-08-03 05:46:33 +0000 |
| commit | 1361423bfb65d486df848443d331bb12cb84d480 (patch) | |
| tree | 2fa63a9cbf97321dbf78e1e5ad66e0def0bbe9c0 /lisp/completion.el | |
| parent | dd313433fd2265368b23bb9d2f8b063807b072d1 (diff) | |
| download | emacs-1361423bfb65d486df848443d331bb12cb84d480.tar.gz | |
(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.
Diffstat (limited to 'lisp/completion.el')
| -rw-r--r-- | lisp/completion.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/completion.el b/lisp/completion.el index 682052a4b46..183a39fc573 100644 --- a/lisp/completion.el +++ b/lisp/completion.el @@ -377,10 +377,9 @@ Used to decide whether to save completions.") "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 @@ Used to decide whether to save completions.") (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 @@ STRING must be longer than `completion-prefix-min-length'." (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) |