From e572a7d8000768b45d005e30b1869dd7ef469200 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 27 Dec 2013 16:43:54 +0100 Subject: [PATCH] * net/shr.el (shr-insert): Don't infloop if the width is zero. --- lisp/ChangeLog | 4 ++++ lisp/net/shr.el | 1 + 2 files changed, 5 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2782cc4e64c..861b3ba3d60 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-12-27 Lars Ingebrigtsen + + * net/shr.el (shr-insert): Don't infloop if the width is zero. + 2013-12-27 Stefan Monnier * icomplete.el (icomplete-show-matches-on-no-input): Default to nil diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 1a555100a21..b29ae6ce848 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -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)))) -- 2.39.2