# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770817676 0
# Node ID 1335cec8a016d65b2bbfc6885671c4bce7d64004
# Parent  2b4e4a76468b46752a620993a2200d1715091ad5
(PC-do-completion): Clear text props from inserted text.

diff -r 2b4e4a76468b -r 1335cec8a016 lisp/complete.el
--- a/lisp/complete.el	Sun Jun 05 11:55:49 1994 +0000
+++ b/lisp/complete.el	Sun Jun 05 12:01:16 1994 +0000
@@ -475,7 +475,8 @@
 					     (delete-char 1)
 					     (setq end (1- end))))
 				      (setq improved t))
-				    (insert (substring prefix i (1+ i)))
+				    ;; Use format to discard text properties.
+				    (insert (format "%s" (substring prefix i (1+ i))))
 				    (setq end (1+ end)))
 				  (setq i (1+ i)))
 				(or pt (equal (point) beg)
@@ -533,9 +534,10 @@
 	    (if (null mode)
 		(PC-temp-minibuffer-message " (Sole completion)"))
 	  (delete-region beg end)
-	  (insert (if filename
-		      (substitute-in-file-name (concat dirname (car poss)))
-		    (car poss))))
+	  (insert (format "%s"
+			  (if filename
+			      (substitute-in-file-name (concat dirname (car poss)))
+			    (car poss)))))
 	t)))))