# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1220820987 0
# Node ID cf3a44c40410a12d5b654ce3d2959484b81642e8
# Parent  d8b291454853e39af8d809152fbe7a2c1b40ca8d
* complete.el (PC-do-completion): Don't replace buffer contents
(bug#227).

diff -r d8b291454853 -r cf3a44c40410 lisp/complete.el
--- a/lisp/complete.el	Sun Sep 07 20:41:10 2008 +0000
+++ b/lisp/complete.el	Sun Sep 07 20:56:27 2008 +0000
@@ -456,14 +456,7 @@
     ;; Check if buffer contents can already be considered complete
     (if (and (eq mode 'exit)
 	     (test-completion str table pred))
-	(progn
-	  ;; If completion-ignore-case is non-nil, insert the
-	  ;; completion string since that may have a different case.
-	  (when completion-ignore-case
-	    (setq str (PC-try-completion str table pred))
-	    (delete-region beg end)
-	    (insert str))
-	  'complete)
+	'complete
 
       ;; Do substitutions in directory names
       (and filename