# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1206144659 0
# Node ID 30f72c1f8238c6c743e610621548a4dd7aa8bcb2
# Parent  59d389acc0ce4f4d35ba023899be4594eedda214
(lisp-complete-symbol):
Use `minibuffer-message' to display message "No completions of %s"
when this command is called in the minibuffer.

diff -r 59d389acc0ce -r 30f72c1f8238 lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Sat Mar 22 00:02:24 2008 +0000
+++ b/lisp/emacs-lisp/lisp.el	Sat Mar 22 00:10:59 2008 +0000
@@ -667,7 +667,9 @@
 	     (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)