emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r113981: * lisp/textmodes/fill.el (fill-match-adapti


From: Stefan Monnier
Subject: [Emacs-diffs] trunk r113981: * lisp/textmodes/fill.el (fill-match-adaptive-prefix): Don't throw away
Date: Fri, 23 Aug 2013 15:31:58 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 113981
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=15155
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-08-23 11:31:45 -0400
message:
  * lisp/textmodes/fill.el (fill-match-adaptive-prefix): Don't throw away
  text-properties.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/textmodes/fill.el         fill.el-20091113204419-o5vbwnq5f7feedwu-127
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-23 15:21:19 +0000
+++ b/lisp/ChangeLog    2013-08-23 15:31:45 +0000
@@ -1,5 +1,8 @@
 2013-08-23  Stefan Monnier  <address@hidden>
 
+       * 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'.

=== modified file 'lisp/textmodes/fill.el'
--- a/lisp/textmodes/fill.el    2013-01-02 16:13:04 +0000
+++ b/lisp/textmodes/fill.el    2013-08-23 15:31:45 +0000
@@ -220,7 +220,7 @@
   (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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]