From fbe91bbdb9d5ebc26c7191dbc2415c1cd5bba1e8 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 17 Jan 2000 15:32:56 +0000 Subject: [PATCH] (tmm-goto-completions): Adapt to prompt being part of mini-buffer. --- lisp/ChangeLog | 5 +++++ lisp/tmm.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bc3ee6007fd..55406cff166 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-01-17 Gerd Moellmann + + * tmm.el (tmm-goto-completions): Adapt to prompt being part + of mini-buffer. + 2000-01-14 Gerd Moellmann * emacs-lisp/copyright.el (copyright-update): Removed the 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)) -- 2.39.5