From: Juri Linkov <juri@jurta.org>
Date: Sat, 22 Mar 2008 00:11:53 +0000 (+0000)
Subject: (lisp-complete-symbol):
X-Git-Tag: emacs-pretest-23.0.90~6996
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec800cf0a2794bc36f6f9889adfa694991257281;p=emacs.git

(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 d009c258038..fad90534fe9 100644
--- 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 2829be961ca..ee308719821 100644
--- 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)