(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 b648b9223187fc83d11b41462bf202bd2d40730e..0b1b4c476638dde480f65b837e60ea11a61cead7 100644 (file)
--- 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