[Emacs-diffs] trunk r115622: * net/shr.el (shr-insert): Protect against infloops in degenerate tables.

[Lars Ingebrigtsen]

------------------------------------------------------------
revno: 115622
revision-id: address@hidden
parent: address@hidden
committer: Lars Magne Ingebrigtsen <address@hidden>
branch nick: trunk
timestamp: Fri 2013-12-20 05:29:08 +0100
message:
  * net/shr.el (shr-insert): Protect against infloops in degenerate tables.
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-20 01:50:46 +0000
+++ b/lisp/ChangeLog    2013-12-20 04:29:08 +0000
@@ -1,3 +1,8 @@
+2013-12-20  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * net/shr.el (shr-insert): Protect against infloops in degenerate
+       tables.
+
 2013-12-20  Rüdiger Sonderfeld  <address@hidden>
 
        * progmodes/octave.el (octave): Add link to manual and octave

=== modified file 'lisp/net/shr.el'
--- a/lisp/net/shr.el   2013-12-17 02:48:06 +0000
+++ b/lisp/net/shr.el   2013-12-20 04:29:08 +0000
@@ -461,6 +461,7 @@
       (setq shr-state nil)
       (let (found)
        (while (and (> (current-column) shr-width)
+                   (> shr-width 0)
                    (progn
                      (setq found (shr-find-fill-point))
                      (not (eolp))))