(tmm-shortcut): Delete region after prompt instead

of erasing buffer.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/tmm.el b/lisp/tmm.el
index 72438186391..e2c72b2feb8 100644
--- a/lisp/tmm.el
+++ b/lisp/tmm.el
@@ -372,7 +372,8 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'."
               (re-search-forward
                (concat "\\(^\\|[ \t]\\)" (char-to-string c) tmm-mid-prompt))
               (choose-completion))
-          (erase-buffer)                ; In minibuffer
+          ;; In minibuffer
+          (delete-region (minibuffer-prompt-end) (point-max))
           (mapcar (lambda (elt)
                     (if (string=
                          (substring (car elt) 0