From e5fd28221b7f9c7404374b09751148255a581241 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 Jun 1994 12:01:16 +0000 Subject: [PATCH] (PC-do-completion): Clear text props from inserted text. --- lisp/complete.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/complete.el b/lisp/complete.el index b4e374532a3..b9c759588bc 100644 --- a/lisp/complete.el +++ b/lisp/complete.el @@ -475,7 +475,8 @@ See `PC-complete' for details." (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 @@ See `PC-complete' for details." (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))))) -- 2.39.5