diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-01-11 22:04:24 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-01-11 22:04:24 +0000 |
| commit | c2a8d4a7df33dfee3e90eb95ba586c25a519fe23 (patch) | |
| tree | fda79bb1422d57ec6108354834ea002c85e3b6c9 /lisp/tmm.el | |
| parent | 7e3c74fa85f9831e9b5c0c1ae0e8ae6f35f5f39e (diff) | |
| download | emacs-c2a8d4a7df33dfee3e90eb95ba586c25a519fe23.tar.gz | |
(tmm-shortcut): Delete region after prompt instead
of erasing buffer.
Diffstat (limited to 'lisp/tmm.el')
| -rw-r--r-- | lisp/tmm.el | 3 |
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 |