Avoid jumbled order in HTML rendered by shr.el

* lisp/net/shr.el (shr-render-td): Preserve point, as
shr-render-td-1 might move it as a side effect of
save-window-excursion.  (Bug#29348)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 4ba452e4b944ebeae87cc9c29f71950dc0077ef3..ab7240c8c3d9a684101530e8ff7cdd16bc3c8461 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -2289,8 +2289,10 @@ flags that control whether to collect or render objects."
                                  (<= (car (cdr attr)) width))
                         (setq result (cdr attr)))))))
               result))
-       (let ((result (shr-render-td-1 dom width fill)))
+       (let* ((pt (point))
+               (result (shr-render-td-1 dom width fill)))
          (dom-set-attribute dom cache result)
+          (goto-char pt)
          result))))
 
 (defun shr-render-td-1 (dom width fill)