summaryrefslogtreecommitdiff
path: root/lisp/net/shr.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/net/shr.el')
-rw-r--r--lisp/net/shr.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 4820d8b4365..3ab5116597b 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1791,6 +1791,8 @@ The preference is a float determined from `shr-prefer-media-type'."
(defun shr-mark-fill (start)
;; We may not have inserted any text to fill.
(when (and (/= start (point))
+ ;; Tables insert themselves with the correct indentation,
+ ;; so don't do anything if we're at the start of a table.
(not (get-text-property start 'shr-table-id)))
(put-text-property start (1+ start)
'shr-indentation shr-indentation)))