diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2017-11-25 13:31:51 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2017-11-25 13:31:51 +0200 |
| commit | 3198a1646e743dbf8178efb8bba7dea6230f2874 (patch) | |
| tree | 622da88126415e8d5550cfcafe16776a7968196f | |
| parent | 23bfc2d2dbc4f12efbd19f6deed1e8f25f5151e6 (diff) | |
| download | emacs-3198a1646e743dbf8178efb8bba7dea6230f2874.tar.gz | |
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)
| -rw-r--r-- | lisp/net/shr.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index 4ba452e4b94..ab7240c8c3d 100644 --- 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) |