From 62ea7d28bcbd43f209c5511f6780f6e8b917a5fd Mon Sep 17 00:00:00 2001
From: Paul Nelson <ultrono@gmail.com>
Date: Fri, 12 Apr 2024 21:19:51 +0200
Subject: [PATCH] Make preview section commands preserve mark

* preview.el (preview-section, preview-clearout-section):
Change save-excursion to save-mark-and-excursion.
---
 preview.el.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/preview.el.in b/preview.el.in
index b83ab53d..f8e5ade8 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -2238,7 +2238,7 @@ with a `timestamp' property of it are kept."
 (defun preview-clearout-section ()
   "Clearout previews from LaTeX section."
   (interactive)
-  (save-excursion
+  (save-mark-and-excursion
     (LaTeX-mark-section)
     (preview-clearout (region-beginning) (region-end))))
 
@@ -4159,7 +4159,7 @@ environments is selected."
 
 (defun preview-section ()
   "Run preview on LaTeX section." (interactive)
-  (save-excursion
+  (save-mark-and-excursion
     (LaTeX-mark-section)
     (preview-region (region-beginning) (region-end))))
 
-- 
2.39.3 (Apple Git-145)

