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

(crm-completion-table): New variable.

Browse source 
(crm-collection-fn, crm-test-completion)
(completing-read-multiple): Use it.
This commit is contained in:
Gerd Moellmann 2000-04-27 19:00:09 +00:00
parent 11595aa959
commit ec266158e4
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/emacs-lisp/crm.el
View file

@ -109,6 +109,11 @@ Analog of `minibuffer-local-completion-map'.")
"Local keymap for minibuffer multiple input with exact match completion.
Analog of `minibuffer-local-must-match-map' for crm.")
(defvar crm-completion-table nil
"An alist whose elements' cars are strings, or an obarray.
This is a table used for completion by `completing-read-multiple' and its
supporting functions.")
;; this is supposed to be analogous to last_exact_completion in src/minibuf.c
(defvar crm-last-exact-completion nil
"Completion string if last attempt reported \"Complete, but not unique\".")
@ -160,7 +165,7 @@ Functions'."
(setq string (substring string (match-end 0))))
(if (eq flag 'lambda)
;; return t for exact match, nil otherwise
(let ((result (try-completion string table predicate)))
(let ((result (try-completion string crm-completion-table predicate)))
(if (stringp result)
nil
(if result
@ -168,9 +173,9 @@ Functions'."
nil))))
(if flag
;; called via (all-completions string 'crm-completion-fn predicate)?
(all-completions string table predicate)
(all-completions string crm-completion-table predicate)
;; called via (try-completion string 'crm-completion-fn predicate)?
(let ((result (try-completion string table predicate)))
(let ((result (try-completion string crm-completion-table predicate)))
(if (stringp result)
(concat lead result)
result)))))
@ -221,7 +226,8 @@ and return t."
"Return t if CANDIDATE is an exact match for a valid completion."
(let ((completions
;; TODO: verify whether the arguments are appropriate
(all-completions candidate table minibuffer-completion-predicate)))
(all-completions
candidate crm-completion-table minibuffer-completion-predicate)))
(if (member candidate completions)
t
nil)))
@ -587,6 +593,7 @@ INHERIT-INPUT-METHOD."
(minibuffer-completion-confirm (if (eq require-match t)
nil
t))
(crm-completion-table table)
crm-last-exact-completion
crm-current-element
crm-left-of-element