From 99e4926fcbee9f7e75ed19b194fa7a2aa59c98c1 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Wed, 25 Dec 2013 18:31:39 +0100 Subject: [PATCH] Fold shr text with single quotation marks better * net/shr.el (shr-find-fill-point): Don't break lines before a quotation mark. --- lisp/ChangeLog | 5 +++++ lisp/net/shr.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * net/shr.el (shr-find-fill-point): Don't break lines before a + quotation mark. + 2013-12-25 Kenjiro NAKAYAMA * 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 -- 2.39.2