Mercurial > emacs

diff lisp/icomplete.el @ 76442:b7ca30840f44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(icomplete-tidy, icomplete-exhibit): Bind deactivate-mark to nil.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 10 Mar 2007 19:22:39 +0000
parents e3694f1cb928
children 9355f9b7bbff 91bf6e05918b
line wrap: on
line diff
--- a/lisp/icomplete.el	Sat Mar 10 18:55:37 2007 +0000
+++ b/lisp/icomplete.el	Sat Mar 10 19:22:39 2007 +0000
@@ -219,7 +219,8 @@
   (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 @@
 			  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))))))))