diff options
| author | Juri Linkov <[email protected]> | 2008-03-22 00:11:53 +0000 |
|---|---|---|
| committer | Juri Linkov <[email protected]> | 2008-03-22 00:11:53 +0000 |
| commit | ec800cf0a2794bc36f6f9889adfa694991257281 (patch) | |
| tree | f27ddaccf606a0dc0c673d4844c7edf611018dad /lisp/emacs-lisp/lisp.el | |
| parent | df27f31fa66959eef1b69a0d02033eb41d8b78fb (diff) | |
(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 2829be961c..ee30871982 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) |