(lisp-complete-symbol):

Use `minibuffer-message' to display message "No completions of %s"
when this command is called in the minibuffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d009c258038fe1e1377fe15d0eaa8bfdaef57cda..fad90534fe96a60a8a8ffd8a5cdeb3713e6bf7d7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -25,6 +25,10 @@
        (shell-dynamic-complete-environment-variable): Don't display
        completion messages when command is called in the minibuffer.
 
+       * emacs-lisp/lisp.el (lisp-complete-symbol):
+       Use `minibuffer-message' to display message "No completions of %s"
+       when this command is called in the minibuffer.
+
        * bindings.el (standard-mode-line-modes): Put special help-echo
        tooltip on recursive edit %[ %] mode-line constructs.
 

diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el
index 2829be961ca6501c5a46610292e8e3e100fe0dff..ee308719821306ed02f731fc380a741005d5539d 100644 (file)
--- a/lisp/emacs-lisp/lisp.el
+++ b/lisp/emacs-lisp/lisp.el
@@ -667,7 +667,9 @@ considered."
             (completion (try-completion pattern obarray predicate)))
        (cond ((eq completion t))
              ((null completion)
-              (message "Can't find completion for \"%s\"" pattern)
+              (if (window-minibuffer-p (selected-window))
+                  (minibuffer-message (format " [No completions of \"%s\"]" pattern))
+                (message "Can't find completion for \"%s\"" pattern))
               (ding))
              ((not (string= pattern completion))
               (delete-region beg end)