[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115743: Fold shr text with single quotation marks b
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] trunk r115743: Fold shr text with single quotation marks better |
Date: |
Wed, 25 Dec 2013 17:37:40 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 115743
revision-id: address@hidden
parent: address@hidden
committer: Lars Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Wed 2013-12-25 18:31:39 +0100
message:
Fold shr text with single quotation marks better
* net/shr.el (shr-find-fill-point): Don't break lines before a
quotation mark.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/net/shr.el shr.el-20101002102929-yfzewk55rsg0mn93-1
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-12-25 15:33:16 +0000
+++ b/lisp/ChangeLog 2013-12-25 17:31:39 +0000
@@ -1,3 +1,8 @@
+2013-12-25 Lars Ingebrigtsen <address@hidden>
+
+ * net/shr.el (shr-find-fill-point): Don't break lines before a
+ quotation mark.
+
2013-12-25 Kenjiro NAKAYAMA <address@hidden>
* net/eww.el (eww-form-textarea): Use a different face for
=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el 2013-12-21 17:54:16 +0000
+++ b/lisp/net/shr.el 2013-12-25 17:31:39 +0000
@@ -550,7 +550,8 @@
(if (looking-at "\\(\\c<+\\)\\c<")
(goto-char (match-end 1))
(forward-char 1))))
- ((shr-char-kinsoku-bol-p (following-char))
+ ((and (shr-char-kinsoku-bol-p (following-char))
+ (not (eq (following-char) ?')))
;; Find forward the point where kinsoku-bol characters end.
(let ((count 4))
(while (progn
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115743: Fold shr text with single quotation marks better,
Lars Ingebrigtsen <=