Mercurial > emacs
changeset 15564:1e86b1873c5e
(tmm-add-prompt): If tmm-completion-prompt is nil,
don't insert it; instead delete the usual completion helptext.
(tmm-completion-prompt): Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 29 Jun 1996 06:21:17 +0000 |
| parents | e47df82909ff |
| children | 2a0d1c1d2746 |
| files | lisp/tmm.el |
| diffstat | 1 files changed, 8 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tmm.el Sat Jun 29 06:20:14 1996 +0000 +++ b/lisp/tmm.el Sat Jun 29 06:21:17 1996 +0000 @@ -105,7 +105,9 @@ the item in the minibuffer, and press RET when you are done, or press the marked letters to pick up your choice. Type C-g or ESC ESC ESC to cancel. " - "What insert on top of completion buffer.") + "String to insert at top of completion buffer. +If this is nil, delete even the usual help text +and show just the alternatives.") ;;;###autoload (defun tmm-prompt (menu &optional in-popup default-item) @@ -277,7 +279,11 @@ (display-completion-list completions))) (set-buffer "*Completions*") (goto-char 1) - (insert tmm-completion-prompt) + (if tmm-completion-prompt + (insert tmm-completion-prompt) + ;; Delete even the usual help info that all completion buffers have. + (goto-char 1) + (delete-region 1 (search-forward "Possible completions are:\n"))) ) (save-excursion (other-window 1) ; Electric-pop-up-window does