(shr-insert-table): Also insert empty TDs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index eb5accd..86a2c65 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
        to avoid getting an exponential rendering behaviour in nested tables.
        (shr-insert): Rework the line-breaking algorithm.
        (shr-insert): Don't leave trailing spaces.
+       (shr-insert-table): Also insert empty TDs.
 
 2010-10-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 9acb557..ff3474c 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -504,16 +504,15 @@ Return a string with image data."
              overlay overlay-line)
          (dolist (line lines)
            (setq overlay-line (pop overlay-lines))
-           (when (> (length line) 0)
-             (end-of-line)
-             (insert line "|")
-             (dolist (overlay overlay-line)
-               (let ((o (make-overlay (- (point) (nth 0 overlay) 1)
-                                      (- (point) (nth 1 overlay) 1)))
-                     (properties (nth 2 overlay)))
-                 (while properties
-                   (overlay-put o (pop properties) (pop properties)))))
-             (forward-line 1)))
+           (end-of-line)
+           (insert line "|")
+           (dolist (overlay overlay-line)
+             (let ((o (make-overlay (- (point) (nth 0 overlay) 1)
+                                    (- (point) (nth 1 overlay) 1)))
+                   (properties (nth 2 overlay)))
+               (while properties
+                 (overlay-put o (pop properties) (pop properties)))))
+           (forward-line 1))
          ;; Add blank lines at padding at the bottom of the TD,
          ;; possibly.
          (dotimes (i (- height (length lines)))