diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-06-26 12:29:52 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-06-26 12:29:52 -0400 |
commit | b8f9e58ef72402e69a1f0960816184d52e5d2d29 (patch) | |
tree | 901eaf8d80265e550a311016003093b8a241d005 /lisp/minibuffer.el | |
parent | db3767e8db132364dc7a412e1b13ae7bda0c0767 (diff) |
* 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/minibuffer.el')
-rw-r--r-- | lisp/minibuffer.el | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 157ed617b05..71a2177c9b1 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -1790,17 +1790,12 @@ is added, provided that matches some possible completion. Return nil if there is no valid completion, else t." (interactive) (completion-in-region--single-word - (minibuffer--completion-prompt-end) (point-max) - minibuffer-completion-table minibuffer-completion-predicate)) - -(defun completion-in-region--single-word (beg end collection - &optional predicate) - (let ((minibuffer-completion-table collection) - (minibuffer-completion-predicate predicate)) - (pcase (completion--do-completion beg end - #'completion--try-word-completion) + (minibuffer--completion-prompt-end) (point-max))) + +(defun completion-in-region--single-word (beg end) + (pcase (completion--do-completion beg end #'completion--try-word-completion) (#b000 nil) - (_ t)))) + (_ t))) (defface completions-annotations '((t :inherit (italic shadow))) "Face to use for annotations in the *Completions* buffer.") |