# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 836029277 0
# Node ID 1e86b1873c5ef89aac48a92822df8f54c70f26cf
# Parent  e47df82909ff64e4f867564ae1acaab88024d981
(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 -r e47df82909ff -r 1e86b1873c5e lisp/tmm.el
--- 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