From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 25 Dec 2013 17:31:39 +0000 (+0100)
Subject: Fold shr text with single quotation marks better
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~194
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=99e4926fcbee9f7e75ed19b194fa7a2aa59c98c1;p=emacs.git

Fold shr text with single quotation marks better

* net/shr.el (shr-find-fill-point): Don't break lines before a
quotation mark.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 19d14f69017..b1a76998639 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-25  Lars Ingebrigtsen  <larsi@gnus.org>
+
+	* net/shr.el (shr-find-fill-point): Don't break lines before a
+	quotation mark.
+
 2013-12-25  Kenjiro NAKAYAMA  <nakayamakenjiro@gmail.com>
 
 	* net/eww.el (eww-form-textarea): Use a different face for
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 5c30bd8ac67..bb7b7106c7b 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -550,7 +550,8 @@ size, and full-buffer size."
 	     (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