diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-01-17 15:32:56 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-01-17 15:32:56 +0000 |
| commit | fbe91bbdb9d5ebc26c7191dbc2415c1cd5bba1e8 (patch) | |
| tree | 9fe4a62ac7e92498766e86395b0091026eea12ab /lisp/tmm.el | |
| parent | 32660797d37c4731eb25f3b1f62ef66da35de8df (diff) | |
| download | emacs-fbe91bbdb9d5ebc26c7191dbc2415c1cd5bba1e8.tar.gz | |
(tmm-goto-completions): Adapt to prompt being part
of mini-buffer.
Diffstat (limited to 'lisp/tmm.el')
| -rw-r--r-- | lisp/tmm.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/tmm.el b/lisp/tmm.el index e2c72b2feb8..0db56d4c1d4 100644 --- a/lisp/tmm.el +++ b/lisp/tmm.el @@ -387,8 +387,9 @@ Stores a list of all the shortcuts in the free variable `tmm-short-cuts'." (defun tmm-goto-completions () (interactive) - (setq tmm-c-prompt (buffer-string)) - (erase-buffer) + (let ((prompt-end (minibuffer-prompt-end))) + (setq tmm-c-prompt (buffer-substring prompt-end (point-max))) + (delete-region prompt-end (point-max))) (switch-to-buffer-other-window "*Completions*") (search-forward tmm-c-prompt) (search-backward tmm-c-prompt)) |