[elpa] externals/auctex 5f129b5dca 58/76: Support starred variant name

[Tassilo Horn]

branch: externals/auctex
commit 5f129b5dcab1d1c3b3b987348cfa841e265548c4
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    Support starred variant name
    
    * latex.el (LaTeX-find-matching-end):
    (LaTeX-find-matching-begin):
    Find correct begin or end when the point is just after the asterisk of
    "\end{foo*}".
    Remove spurious `regexp-quote' for `TeX-grop'.
---
 latex.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/latex.el b/latex.el
index 81db2e760b..40c0136a37 100644
--- a/latex.el
+++ b/latex.el
@@ -5270,8 +5270,10 @@ environment in commented regions with the same comment 
prefix."
          (in-comment (TeX-in-commented-line))
          (comment-prefix (and in-comment (TeX-comment-prefix)))
          (case-fold-search nil))
+    ;; The following code until `while' handles exceptional cases that
+    ;; the point is on "\begin{foo}" or "\end{foo}".
     (let ((pt (point)))
-      (skip-chars-backward (concat "a-zA-Z \t" (regexp-quote TeX-grop)))
+      (skip-chars-backward (concat "a-zA-Z* \t" TeX-grop))
       (unless (bolp)
         (backward-char 1)
         (if (and (looking-at regexp)
@@ -5307,7 +5309,9 @@ environment in commented regions with the same comment 
prefix."
          (in-comment (TeX-in-commented-line))
          (comment-prefix (and in-comment (TeX-comment-prefix)))
          (case-fold-search nil))
-    (skip-chars-backward (concat "a-zA-Z \t" (regexp-quote TeX-grop)))
+    ;; The following code until `while' handles exceptional cases that
+    ;; the point is on "\begin{foo}" or "\end{foo}".
+    (skip-chars-backward (concat "a-zA-Z* \t" TeX-grop))
     (unless (bolp)
       (backward-char 1)
       (and (looking-at regexp)