From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 17 Jan 2000 15:32:56 +0000 (+0000)
Subject: (tmm-goto-completions): Adapt to prompt being part
X-Git-Tag: emacs-pretest-21.0.90~5329
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fbe91bbdb9d5ebc26c7191dbc2415c1cd5bba1e8;p=emacs.git

(tmm-goto-completions): Adapt to prompt being part
of mini-buffer.
---

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