# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 947628264 0
# Node ID f6c878d8527cada6c1e694208b3d7ff4cf138414
# Parent  6bd57730f71d38f4ee8e200e9d23ec9d845a3466
(tmm-shortcut): Delete region after prompt instead
of erasing buffer.

diff -r 6bd57730f71d -r f6c878d8527c lisp/tmm.el
--- a/lisp/tmm.el	Tue Jan 11 21:47:40 2000 +0000
+++ b/lisp/tmm.el	Tue Jan 11 22:04:24 2000 +0000
@@ -372,7 +372,8 @@
 	      (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