[Emacs-diffs] trunk r115743: Fold shr text with single quotation marks better

[Lars Ingebrigtsen]

------------------------------------------------------------
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