diff options
| author | Juri Linkov <juri@jurta.org> | 2008-03-22 00:10:59 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2008-03-22 00:10:59 +0000 |
| commit | 569a1ea7fd9387ef5dd28eda80114f5b8298e308 (patch) | |
| tree | 566b61bcb295f21d33c7cd0429644cf7d66ab65d /lisp/emacs-lisp/lisp.el | |
| parent | c6c5f53dcdf2eb6924a6737dde999d33aca7961f (diff) | |
| download | emacs-569a1ea7fd9387ef5dd28eda80114f5b8298e308.tar.gz | |
(lisp-complete-symbol):
Use `minibuffer-message' to display message "No completions of %s"
when this command is called in the minibuffer.
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 4 |
1 files changed, 3 insertions, 1 deletions
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) |