From ec800cf0a2794bc36f6f9889adfa694991257281 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 22 Mar 2008 00:11:53 +0000 Subject: (lisp-complete-symbol): Use `minibuffer-message' to display message "No completions of %s" when this command is called in the minibuffer. --- lisp/emacs-lisp/lisp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp/lisp.el') 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) -- cgit v1.2.3