Mercurial > emacs
changeset 27350:5834ff22d8ce
(tmm-goto-completions): Adapt to prompt being part
of mini-buffer.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 17 Jan 2000 15:31:58 +0000 |
| parents | f105cf4da905 |
| children | 3f23796c972f |
| files | lisp/tmm.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/tmm.el Mon Jan 17 12:45:41 2000 +0000 +++ b/lisp/tmm.el Mon Jan 17 15:31:58 2000 +0000 @@ -387,8 +387,9 @@ (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))