procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cmpl-read-time-eval): Make it no-op.

Browse source 
(cmpl-hours-since-origin): Use truncate to make an integer.
(completion-search-reset): Use completion-prefix-min-length.
This commit is contained in:
Richard M. Stallman 1993-08-03 05:46:33 +00:00
parent 1add72b5df
commit 46f950cab8
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/completion.el
View file

@ -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)