]> git.eshelyaron.com Git - emacs.git/commitdiff
(tmm-shortcut): Delete region after prompt instead
authorGerd Moellmann <gerd@gnu.org>
Tue, 11 Jan 2000 22:04:24 +0000 (22:04 +0000)
committerGerd Moellmann <gerd@gnu.org>
Tue, 11 Jan 2000 22:04:24 +0000 (22:04 +0000)
of erasing buffer.

lisp/tmm.el

index 7243818639118c4e23e292131e14efc51f8105d0..e2c72b2feb80710b7bd03ab92518e48a4e4779ec 100644 (file)
@@ -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