* lisp/minibuffer.el (completion--replace): Inherit surrounding properties.

(minibuffer-complete-and-exit): Use it.

Fixes: debbugs:114

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ebca8675cee32ffe2f0ca20fd9992322e3bcc73..60c2b62cfe21fcaa6ec79c9fe7d7d4e2f6955f5b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2011-10-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * minibuffer.el (completion--replace): Inherit surrounding properties
+       (bug#114).
+       (minibuffer-complete-and-exit): Use it.
+
        * comint.el (comint--table-subvert): Quote the all-completions output
        (bug#9160).
 

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index acb71d115d1b3d5205730d7d82dec37691e7eb90..38785fc48e80c32b3e0f3643ca41d0a0948b4b66 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -596,7 +596,7 @@ Moves point to the end of the new text."
       (setq end (- end suffix-len))
       (setq newtext (substring newtext 0 (- suffix-len))))
     (goto-char beg)
-    (insert newtext)
+    (insert-and-inherit newtext)
     (delete-region (point) (+ (point) (- end beg)))
     (forward-char suffix-len)))
 
@@ -927,9 +927,7 @@ If `minibuffer-completion-confirm' is `confirm-after-completion',
                      ;; file, so `try-completion' actually completes to
                      ;; that file.
                      (= (length string) (length compl)))
-            (goto-char end)
-            (insert compl)
-            (delete-region beg end))))
+            (completion--replace beg end compl))))
       (exit-minibuffer))
 
      ((memq minibuffer-completion-confirm '(confirm confirm-after-completion))