[Emacs-diffs] /srv/bzr/emacs/trunk r102426: * lisp/minibuffer.el (completion-fail-discreetly): New var.

[Stefan Monnier]

------------------------------------------------------------
revno: 102426
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Wed 2010-11-17 21:44:44 -0500
message:
  * lisp/minibuffer.el (completion-fail-discreetly): New var.
  (completion--do-completion): Use it.
modified:
  lisp/ChangeLog
  lisp/minibuffer.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-11-18 02:43:42 +0000
+++ b/lisp/ChangeLog    2010-11-18 02:44:44 +0000
@@ -1,5 +1,8 @@
 2010-11-18  Stefan Monnier  <address@hidden>
 
+       * 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

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2010-11-09 20:07:10 +0000
+++ b/lisp/minibuffer.el        2010-11-18 02:44:44 +0000
@@ -530,6 +530,9 @@
 (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 @@
     (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))