diff options
| -rw-r--r-- | lisp/net/shr.el | 2 |
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'." | |||
| 1791 | (defun shr-mark-fill (start) | 1791 | (defun shr-mark-fill (start) |
| 1792 | ;; We may not have inserted any text to fill. | 1792 | ;; We may not have inserted any text to fill. |
| 1793 | (when (and (/= start (point)) | 1793 | (when (and (/= start (point)) |
| 1794 | ;; Tables insert themselves with the correct indentation, | ||
| 1795 | ;; so don't do anything if we're at the start of a table. | ||
| 1794 | (not (get-text-property start 'shr-table-id))) | 1796 | (not (get-text-property start 'shr-table-id))) |
| 1795 | (put-text-property start (1+ start) | 1797 | (put-text-property start (1+ start) |
| 1796 | 'shr-indentation shr-indentation))) | 1798 | 'shr-indentation shr-indentation))) |