(tmm-goto-completions): Adapt to prompt being part

of mini-buffer.
This commit is contained in:
Gerd Moellmann 2000-01-17 15:32:56 +00:00
parent 32660797d3
commit fbe91bbdb9
2 changed files with 8 additions and 2 deletions

View file

@ -1,3 +1,8 @@
2000-01-17 Gerd Moellmann <gerd@gnu.org>
* tmm.el (tmm-goto-completions): Adapt to prompt being part
of mini-buffer.
2000-01-14 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/copyright.el (copyright-update): Removed the

View file

@ -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))