procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fold shr text with single quotation marks better

Browse source 
* net/shr.el (shr-find-fill-point): Don't break lines before a
quotation mark.
This commit is contained in:
Lars Ingebrigtsen 2013-12-25 18:31:39 +01:00
parent 9ab3ce4d2f
commit 99e4926fcb
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

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

3
lisp/net/shr.el
View file

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