Mercurial > emacs

changeset 7792:1335cec8a016

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(PC-do-completion): Clear text props from inserted text.
author Richard M. Stallman <rms@gnu.org>
date Sun, 05 Jun 1994 12:01:16 +0000
parents 2b4e4a76468b
children 4a683dc76931
files lisp/complete.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)))))