(icomplete-exhibit): Adapt to prompt in buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1a8f0987689767bfecf306f4467ada02dc49966d..21a6563710d2930aa0fa60afe4194de44c2f692b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 1999-12-28  Gerd Moellmann  <gerd@gnu.org>
 
+       * icomplete.el (icomplete-exhibit): Adapt to prompt in buffer.
+
        * progmodes/cc-cmds.el (c-fill-paragraph): Don't delete white
        space in front of a C-style comment end.
 

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 1e49e0ca7bf109bf961fd624fa178e5d660c2223..22f63b670edcdc56f4ddd5761c856039bd54c19a 100644 (file)
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -246,7 +246,7 @@ and `minibuffer-setup-hook'."
 Should be run via minibuffer `post-command-hook'.  See `icomplete-mode'
 and `minibuffer-setup-hook'."
   (if (icomplete-simple-completing-p)
-      (let ((contents (buffer-substring (point-min)(point-max)))
+      (let ((contents (buffer-substring (minibuffer-prompt-end)(point-max)))
            (buffer-undo-list t))
        (save-excursion
          (goto-char (point-max))