From 9f80907ace81bd1282450720fc9c996fb895ca22 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 Jun 1996 06:21:17 +0000 Subject: [PATCH] (tmm-add-prompt): If tmm-completion-prompt is nil, don't insert it; instead delete the usual completion helptext. (tmm-completion-prompt): Doc fix. --- lisp/tmm.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/tmm.el b/lisp/tmm.el index b648b922318..0b1b4c47663 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -105,7 +105,9 @@ Alternatively, you can use Up/Down keys (or your History keys) to change 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 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'." (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 -- 2.39.2