[AUCTeX-diffs] [elpa] externals/auctex 4df267fa7e 1/5: Improve support for starred variant name

[Tassilo Horn]

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

    Improve support for starred variant name
    
    * tex.el (TeX-current-macro): Return starred variant name if asterisk
    is present.
    * latex.el (LaTeX-auto-regexp-list): Allow starred variant name for
    \newenvironment.
---
 latex.el | 6 +++---
 tex.el   | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/latex.el b/latex.el
index 0d55f269fd..c332ebf457 100644
--- a/latex.el
+++ b/latex.el
@@ -1742,11 +1742,11 @@ This is necessary since index entries may contain 
commands and stuff.")
         (1 2) LaTeX-auto-arguments)
        (,(concat "\\\\\\(?:new\\|provide\\)command\\*?{?\\\\\\(" token 
"+\\)}?")
         1 TeX-auto-symbol)
-       (,(concat "\\\\newenvironment\\*?{?\\(" token 
"+\\)}?\\[\\([0-9]+\\)\\]\\[")
+       (,(concat "\\\\newenvironment\\*?{?\\(" token 
"+\\)\\*?}?\\[\\([0-9]+\\)\\]\\[")
         (1 2) LaTeX-auto-env-args-with-opt)
-       (,(concat "\\\\newenvironment\\*?{?\\(" token 
"+\\)}?\\[\\([0-9]+\\)\\]")
+       (,(concat "\\\\newenvironment\\*?{?\\(" token 
"+\\)\\*?}?\\[\\([0-9]+\\)\\]")
         (1 2) LaTeX-auto-env-args)
-       (,(concat "\\\\newenvironment\\*?{?\\(" token "+\\)}?")
+       (,(concat "\\\\newenvironment\\*?{?\\(" token "+\\)\\*?}?")
         1 LaTeX-auto-environment)
        (,(concat "\\\\newtheorem{\\(" token "+\\)}") 1 LaTeX-auto-environment)
        ("\\\\input{\\(\\.*[^#}%\\\\\\.\n\r]+\\)\\(\\.[^#}%\\\\\\.\n\r]+\\)?}"
diff --git a/tex.el b/tex.el
index 79a5f64d58..e3f4d118e7 100644
--- a/tex.el
+++ b/tex.el
@@ -5691,7 +5691,7 @@ escape characters, such as \"\\\" in LaTeX."
         (goto-char macro-start)
         (forward-char (length TeX-esc))
         (buffer-substring-no-properties
-         (point) (progn (skip-chars-forward "@A-Za-z") (point)))))))
+         (point) (progn (skip-chars-forward "@A-Za-z*") (point)))))))
 
 (defvar TeX-search-forward-comment-start-function nil
   "Function to find the start of a comment.