mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(lisp-complete-symbol):

Browse Source 
Use `minibuffer-message' to display message "No completions of %s"
when this command is called in the minibuffer.
This commit is contained in:
Juri Linkov 2008-03-22 00:11:53 +00:00
parent df27f31fa6
commit ec800cf0a2
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

4
lisp/emacs-lisp/lisp.el
View File

@ -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)