mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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
Download patch file Download diff file Expand all files Collapse all files

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