From: Stefan Monnier Date: Fri, 23 Aug 2013 15:31:45 +0000 (-0400) Subject: * lisp/textmodes/fill.el (fill-match-adaptive-prefix): Don't throw away X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1686^2~142 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e3a6636351364fe32463d3a8196e5fc564c66422;p=emacs.git * 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 bef5c61330f..df9fce72dd9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2013-08-23 Stefan Monnier + * 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 5b6d5f359e6..119b4b04593 100644 --- 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