* net/shr.el (shr-insert): Don't infloop if the width is zero.

This commit is contained in:
Lars Ingebrigtsen 2013-12-27 16:43:54 +01:00
parent a4151f3b49
commit e572a7d800
2 changed files with 5 additions and 0 deletions

View file

@ -1,3 +1,7 @@
2013-12-27 Lars Ingebrigtsen <larsi@gnus.org>
* net/shr.el (shr-insert): Don't infloop if the width is zero.
2013-12-27 Stefan Monnier <monnier@iro.umontreal.ca>
* icomplete.el (icomplete-show-matches-on-no-input): Default to nil

View file

@ -456,6 +456,7 @@ size, and full-buffer size."
(setq shr-state nil)
(let (found)
(while (and (> (current-column) shr-width)
(> shr-width 0)
(progn
(setq found (shr-find-fill-point))
(not (eolp))))