[elpa] externals/auctex ce15e3fd87 24/48: Extend Japanese TeX support

[Tassilo Horn]

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

    Extend Japanese TeX support
    
    * latex.el (LaTeX-auto-counter-regexp-list)
    (LaTeX-auto-length-regexp-list):
    Support Japanese counter/length names.
---
 latex.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/latex.el b/latex.el
index 5fc9f735a7..e096603b4e 100644
--- a/latex.el
+++ b/latex.el
@@ -1748,12 +1748,14 @@ This is necessary since index entries may contain 
commands and stuff.")
   "List of regular expressions matching LaTeX pagestyles only.")
 
 (defvar LaTeX-auto-counter-regexp-list
-  '(("\\\\newcounter *{\\([A-Za-z]+\\)}" 1 LaTeX-auto-counter)
-    ("\\\\@definecounter{\\([A-Za-z]+\\)}" 1 LaTeX-auto-counter))
+  (let ((token TeX-token-char))
+    `((,(concat "\\\\newcounter *{\\(" token "+\\)}") 1 LaTeX-auto-counter)
+      (,(concat "\\\\@definecounter{\\(" token "+\\)}") 1 LaTeX-auto-counter)))
   "List of regular expressions matching LaTeX counters only.")
 
 (defvar LaTeX-auto-length-regexp-list
-  '(("\\\\newlength *{?\\\\\\([A-Za-z]+\\)}?" 1 LaTeX-auto-length))
+  (let ((token TeX-token-char))
+    `((,(concat "\\\\newlength *{?\\\\\\(" token "+\\)}?") 1 
LaTeX-auto-length)))
   "List of regular expressions matching LaTeX lengths only.")
 
 (defvar LaTeX-auto-savebox-regexp-list