From 46f950cab852ffab33a6d46e4894e6ba4e575945 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 3 Aug 1993 05:46:33 +0000 Subject: (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. --- lisp/completion.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'lisp/completion.el') 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) -- cgit v1.2.1