From 7bd597323358642a632a8a392b19a9560f50dde9 Mon Sep 17 00:00:00 2001 From: Karthik Chikmagalur Date: Fri, 21 Apr 2023 22:22:49 -0700 Subject: [PATCH] org-latex-preview: Optimize overlay-modify hook * lisp/org-latex-preview.el (org-latex-preview-auto--mark-overlay-modified): Reduce slightly the number of checks needed to run each time text inside a LaTeX fragment overlay is modified. --- lisp/org-latex-preview.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-latex-preview.el b/lisp/org-latex-preview.el index c7476eb85..458b19a52 100644 --- a/lisp/org-latex-preview.el +++ b/lisp/org-latex-preview.el @@ -378,8 +378,10 @@ overlay face is set to `org-latex-preview-processing-face'." (defun org-latex-preview-auto--mark-overlay-modified (ov after-p _beg _end &optional _l) "When AFTER-P mark OV as modified and display nothing." (when after-p - (overlay-put ov 'preview-state 'modified) - (overlay-put ov 'display nil))) + (unless (eq (overlay-get ov 'preview-state) 'modified) + (overlay-put ov 'preview-state 'modified) + (overlay-put ov 'face nil) + (overlay-put ov 'display nil)))) (defun org-latex-preview--update-overlay (ov path-info) "Update the overlay OV to show the image specified by PATH-INFO."