(tmm-goto-completions): Adapt to prompt being part
of mini-buffer.
This commit is contained in:
parent
32660797d3
commit
fbe91bbdb9
2 changed files with 8 additions and 2 deletions
|
@ -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
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Add table
Reference in a new issue