diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-06-05 12:01:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-06-05 12:01:16 +0000 |
| commit | 55d19a609e442e125bcd2cddac367ad3659001ec (patch) | |
| tree | f7aee8c482dd763c09b14567e2098cba96d18c00 /lisp/complete.el | |
| parent | ebae7abe7158455b9fa3b356c3bff228dc6b17a4 (diff) | |
| download | emacs-55d19a609e442e125bcd2cddac367ad3659001ec.tar.gz | |
(PC-do-completion): Clear text props from inserted text.
Diffstat (limited to 'lisp/complete.el')
| -rw-r--r-- | lisp/complete.el | 10 |
1 files 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))))) |