(ispell): New function, replacing an alias.

[gnu-emacs] / lisp / icomplete.el

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 1e49e0ca7bf109bf961fd624fa178e5d660c2223..344cd9fe18f300a2c93369f55f84d5293e3eecaa 100644 (file)
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -1,4 +1,4 @@
-;;;_+ icomplete.el - minibuffer completion incremental feedback
+;;; icomplete.el --- minibuffer completion incremental feedback
 
 ;; Copyright (C) 1992, 1993, 1994, 1997, 1999 Free Software Foundation, Inc.
 
@@ -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))