summaryrefslogtreecommitdiff
path: root/lisp/emacs-lisp/crm.el
diff options
context:
space:
mode:
authorStefan Monnier <monnier@iro.umontreal.ca>2021-06-26 12:29:52 -0400
committerStefan Monnier <monnier@iro.umontreal.ca>2021-06-26 12:29:52 -0400
commitb8f9e58ef72402e69a1f0960816184d52e5d2d29 (patch)
tree901eaf8d80265e550a311016003093b8a241d005 /lisp/emacs-lisp/crm.el
parentdb3767e8db132364dc7a412e1b13ae7bda0c0767 (diff)
downloademacs-b8f9e58ef72402e69a1f0960816184d52e5d2d29.tar.gz
* lisp/minibuffer.el (completion-in-region--single-word): Simplify
Remove redundant args `collection` and `predicate` which were always equal to `minibuffer-completion-table` and `minibuffer-completion-predicate` anyway. (minibuffer-complete-word): * lisp/emacs-lisp/crm.el (crm-complete-word): Simplify accordingly.
Diffstat (limited to 'lisp/emacs-lisp/crm.el')
-rw-r--r--lisp/emacs-lisp/crm.el3
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/crm.el b/lisp/emacs-lisp/crm.el
index e106815817e..d24ea355a51 100644
--- a/lisp/emacs-lisp/crm.el
+++ b/lisp/emacs-lisp/crm.el
@@ -183,8 +183,7 @@ Return t if the current element is now a valid match; otherwise return nil."
Like `minibuffer-complete-word' but for `completing-read-multiple'."
(interactive)
(crm--completion-command beg end
- (completion-in-region--single-word
- beg end minibuffer-completion-table minibuffer-completion-predicate)))
+ (completion-in-region--single-word beg end)))
(defun crm-complete-and-exit ()
"If all of the minibuffer elements are valid completions then exit.