(icomplete-tidy, icomplete-exhibit): Bind deactivate-mark to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2029538256b663c4a9f564ee67767bfb193eea0f..94f76541c066d25c4b643e593a2bee0933e5de0d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-03-10  Johan Bockg\e,be\e(Brd  <bojohan@dd.chalmers.se>
+
+       * icomplete.el (icomplete-tidy, icomplete-exhibit): Bind
+       deactivate-mark to nil.
+
 2007-03-10  Martin Rudalics  <rudalics@gmx.at>
 
        * complete.el (PC-do-completion): Bind dirlength to nil to avoid

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 3ee53a821bf98e615ef85757097194d2edd690f9..6599c1442bcd79d15304e22926c91f7f04a64718 100644 (file)
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -219,7 +219,8 @@ and `minibuffer-setup-hook'."
   (when (and icomplete-mode icomplete-eoinput)
 
     (unless (>= icomplete-eoinput (point-max))
-      (let ((buffer-undo-list t)) ; prevent entry
+      (let ((buffer-undo-list t) ; prevent entry
+           deactivate-mark)
        (delete-region icomplete-eoinput (point-max))))
 
     ;; Reestablish the safe value.
@@ -256,7 +257,8 @@ and `minibuffer-setup-hook'."
                          minibuffer-completion-table
                          minibuffer-completion-predicate
                          (not minibuffer-completion-confirm)))))
-               (buffer-undo-list t))
+               (buffer-undo-list t)
+               deactivate-mark)
            ;; Do nothing if while-no-input was aborted.
            (if (consp text) (insert (car text))))))))