* lisp/textmodes/fill.el (fill-match-adaptive-prefix): Don't throw away

text-properties.

Fixes: debbugs:15155

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bef5c61..df9fce7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-08-23  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * textmodes/fill.el (fill-match-adaptive-prefix): Don't throw away
+       text-properties (bug#15155).
+
        * calc/calc-keypd.el (calc-keypad-execute): `x-flush-mouse-queue' doesn't
        exist any more.
        (calc-keypad-redraw): Remove unused var `pad'.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 5b6d5f3..119b4b0 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -220,7 +220,7 @@ Remove indentation from each line."
   (let ((str (or
               (and adaptive-fill-function (funcall adaptive-fill-function))
               (and adaptive-fill-regexp (looking-at adaptive-fill-regexp)
-                   (match-string-no-properties 0)))))
+                   (match-string 0)))))
     (if (>= (+ (current-left-margin) (length str)) (current-fill-column))
         ;; Death to insanely long prefixes.
         nil