From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 11 Jan 2000 22:04:24 +0000 (+0000)
Subject: (tmm-shortcut): Delete region after prompt instead
X-Git-Tag: emacs-pretest-21.0.90~5382
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c2a8d4a7df33dfee3e90eb95ba586c25a519fe23;p=emacs.git

(tmm-shortcut): Delete region after prompt instead
of erasing buffer.
---

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