(mh-folder-mode): Bind desktop-save-buffer to t.

[gnu-emacs] / lisp / icomplete.el

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 784773067717bc7017f7c47fcde2ca1d522b0201..6317662d3946dadf5e93e861709de203c1f733cc 100644 (file)
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -71,7 +71,7 @@
 
 (defcustom icomplete-mode nil
   "*Toggle incremental minibuffer completion.
-As text is typed into the minibuffer, prospective completions are indicated 
+As text is typed into the minibuffer, prospective completions are indicated
 in the minibuffer.
 Setting this variable directly does not take effect;
 use either \\[customize] or the function `icomplete-mode'."
@@ -207,12 +207,10 @@ Conditions are:
   "Run in minibuffer on activation to establish incremental completion.
 Usually run by inclusion in `minibuffer-setup-hook'."
   (cond ((and icomplete-mode (icomplete-simple-completing-p))
-        (make-local-hook 'pre-command-hook)
         (add-hook 'pre-command-hook
                   (function (lambda ()
                               (run-hooks 'icomplete-pre-command-hook)))
                   nil t)
-        (make-local-hook 'post-command-hook)
         (add-hook 'post-command-hook
                   (function (lambda ()
                               (run-hooks 'icomplete-post-command-hook)))
@@ -260,7 +258,7 @@ and `minibuffer-setup-hook'."
              (make-local-variable 'icomplete-eoinput))
          (setq icomplete-eoinput (point))
                                         ; Insert the match-status information:
-         (if (and (> (point-max) 1)
+         (if (and (> (point-max) (minibuffer-prompt-end))
                   (or
                    ;; Don't bother with delay after certain number of chars:
                    (> (point-max) icomplete-max-delay-chars)
@@ -365,4 +363,5 @@ are exhibited within the square braces.)"
 ;;;outline-layout: (-2 :)
 ;;;End:
 
+;;; arch-tag: 339ec25a-0741-4eb6-be63-997532e89b0f
 ;;; icomplete.el ends here