[elpa] externals/auctex b4dde3e325 09/23: Fix `preview-region' on repeated math constructs

[Tassilo Horn]

branch: externals/auctex
commit b4dde3e325034f832b0a7a35f3c2acae3fd754af
Author: Paul Nelson <ultrono@gmail.com>
Commit: Arash Esbati <arash@gnu.org>

    Fix `preview-region' on repeated math constructs
    
    * preview.el.in (preview--region-begin): New variable.
    (preview-parse-messages, preview-region): Use and set the new
    variable in order to make `preview-region' work correctly when
    applied to, e.g., the second "$x$" in "$x$ $x$".  (bug#62445)
---
 preview.el.in | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/preview.el.in b/preview.el.in
index 09836d9e34..9541043997 100644
--- a/preview.el.in
+++ b/preview.el.in
@@ -3268,6 +3268,8 @@ Return a new string."
     (setq result (concat result string))
     result))
 
+(defvar-local preview--region-begin nil)
+
 (defun preview-parse-messages (open-closure)
   "Turn all preview snippets into overlays.
 This parses the pseudo error messages from the preview
@@ -3538,6 +3540,15 @@ name(\\([^)]+\\))\\)\\|\
                         (goto-char (point-min))
                         (forward-line (1- line)))
                       (setq lpoint (point))
+
+                      ;; The following addresses the bug described at
+                      ;; 
https://lists.gnu.org/archive/html/bug-auctex/2023-03/msg00007.html
+                      ;; (bug#62445)
+                      (and preview--region-begin
+                           (< (point)
+                              preview--region-begin)
+                           (goto-char preview--region-begin))
+
                       (cond
                        ((search-forward (concat string after-string)
                                         (line-end-position) t)
@@ -4033,6 +4044,7 @@ stored in `preview-dumped-alist'."
                          "<none>")
                        (TeX-current-offset begin)))
   (setq TeX-current-process-region-p t)
+  (setq preview--region-begin begin)
   (preview-generate-preview (TeX-region-file)
                             (preview-do-replacements
                              (TeX-command-expand