diff --git a/packages/adaptive-wrap/adaptive-wrap.el b/packages/adaptive-wrap/adaptive-wrap.el index f8d89ac69..5a23e6d6b 100644 --- a/packages/adaptive-wrap/adaptive-wrap.el +++ b/packages/adaptive-wrap/adaptive-wrap.el @@ -81,8 +81,12 @@ extra indent = 2 ((= 0 adaptive-wrap-extra-indent) fcp) ((< 0 adaptive-wrap-extra-indent) - (concat fcp - (make-string adaptive-wrap-extra-indent fill-char))) + (let ((face (plist-get (text-properties-at (1- end)) 'face)) + (prefix (concat fcp + (make-string adaptive-wrap-extra-indent fill-char)))) + (if (and face (face-extend-p face)) + (propertize prefix 'face face) + prefix))) ((< 0 (+ adaptive-wrap-extra-indent fcp-len)) (substring fcp 0