From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 29 Jun 1996 06:21:17 +0000 (+0000)
Subject: (tmm-add-prompt): If tmm-completion-prompt is nil,
X-Git-Tag: emacs-19.34~298
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f80907ace81bd1282450720fc9c996fb895ca22;p=emacs.git

(tmm-add-prompt): If tmm-completion-prompt is nil,
don't insert it; instead delete the usual completion helptext.
(tmm-completion-prompt): Doc fix.
---

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