diff options
author | Gerd Moellmann <gerd@gnu.org> | 2000-01-17 15:31:58 +0000 |
---|---|---|
committer | Gerd Moellmann <gerd@gnu.org> | 2000-01-17 15:31:58 +0000 |
commit | 0d5d8151f972741aac46a3fdd321f0091d7bb989 (patch) | |
tree | c48bfe2370ccfc65c33c492bb2a2b7ca10594740 /lisp/tmm.el | |
parent | d6f8e3d0323881ac78f11269a1b1c9e17d4d0e76 (diff) | |
download | emacs-0d5d8151f972741aac46a3fdd321f0091d7bb989.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)) |