Run preview formatters within save-match-data & save-excursion

Prevents common accidental state updates in preview formatters
This commit is contained in:
Chris Barrett
2022-11-24 01:13:28 +13:00
parent bf5284eb57
commit ac9e5e8a6d

View File

@ -341,7 +341,12 @@ When called with a `C-u' prefix arg, clear the current filter."
(propertize "(Empty)" 'font-lock-face 'font-lock-comment-face)
content)
depth)))))
(formatted-preview (seq-reduce (lambda (str fn) (funcall fn str)) post-formatters preview)))
(formatted-preview (seq-reduce (lambda (str fn)
(save-match-data
(save-excursion
(funcall fn str))))
post-formatters
preview)))
(oset section file file)
(oset section point start)
(insert formatted-preview)