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

text-properties.

Fixes: debbugs:15155

lisp/ChangeLog

 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'.

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