[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113981: * lisp/textmodes/fill.el (fill-match-adaptive-prefix): Don't throw away,
Stefan Monnier <=