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

* lisp/minibuffer.el (completion-fail-discreetly): New var.

Browse source 
(completion--do-completion): Use it.
This commit is contained in:
Stefan Monnier 2010-11-17 21:44:44 -05:00
parent c51bb5d2c2
commit b7e270a2c4
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -1,5 +1,8 @@
2010-11-18 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (completion-fail-discreetly): New var.
(completion--do-completion): Use it.
* electric.el (electric-pair-pairs): New var.
(electric-pair-post-self-insert-function): Use it.
(electric-layout-post-self-insert-function): Don't insert a before

7
lisp/minibuffer.el
View file

@ -530,6 +530,9 @@ candidates than this number."
(make-variable-buffer-local 'completion-all-sorted-completions)
(defvar completion-cycling nil)
(defvar completion-fail-discreetly nil
"If non-nil, stay quiet when there is no match.")
(defun completion--do-completion (&optional try-completion-function)
"Do the completion and return a summary of what happened.
M = completion was performed, the text was Modified.
@ -558,7 +561,9 @@ E = after completion we now have an Exact match.
(cond
((null comp)
(minibuffer-hide-completions)
(ding) (minibuffer-message "No match") (minibuffer--bitset nil nil nil))
(unless completion-fail-discreetly
(ding) (minibuffer-message "No match"))
(minibuffer--bitset nil nil nil))
((eq t comp)
(minibuffer-hide-completions)
(goto-char (field-end))