[AUCTeX-diffs] Changes to auctex/tex.el

[Masayuki Ataka]

Index: auctex/tex.el
diff -u auctex/tex.el:5.538 auctex/tex.el:5.539
--- auctex/tex.el:5.538 Sun Oct  2 13:26:20 2005
+++ auctex/tex.el       Thu Oct  6 20:35:39 2005
@@ -2636,18 +2636,29 @@
   '(("<IMPOSSIBLE>\\(\\'\\`\\)" 1 ignore))
   "List of regular expressions guaranteed to match nothing.")
 
+(defvar TeX-token-char
+  (if (featurep 'mule)
+      "\\(?:[a-zA-Z]\\|\\cj\\)"
+    "[a-zA-Z]")
+  "Regexp to match TeX token charactor.
+
+Please use shy group if you use a grouping construct, because the
+functions/variables which use `TeX-token-char' expect not to
+alter the numbering of any ordinary, non-shy groups.")
+
 (defvar plain-TeX-auto-regexp-list
-  '(("\\\\def\\\\\\([a-zA-Z]+\\)address@hidden" 1 TeX-auto-symbol-check)
-    ("\\\\let\\\\\\([a-zA-Z]+\\)address@hidden" 1 TeX-auto-symbol-check)
-    ("\\\\font\\\\\\([a-zA-Z]+\\)address@hidden" 1 TeX-auto-symbol)
-    ("\\\\chardef\\\\\\([a-zA-Z]+\\)address@hidden" 1 TeX-auto-symbol)
-    ("\\\\new\\(count\\|dimen\\|muskip\\|skip\\)\\\\\\([a-z]+\\)address@hidden"
-     2 TeX-auto-symbol)
-    ("\\\\newfont{?\\\\\\([a-zA-Z]+\\)}?" 1 TeX-auto-symbol)
-    ("\\\\typein\\[\\\\\\([a-zA-Z]+\\)\\]" 1 TeX-auto-symbol)
-    ("\\\\input +\\(\\.*[^#%\\\\\\.\n\r]+\\)\\(\\.[^#%\\\\\\.\n\r]+\\)?"
-     1 TeX-auto-file)
-    ("\\\\mathchardef\\\\\\([a-zA-Z]+\\)address@hidden" 1 TeX-auto-symbol))
+  (let ((token TeX-token-char))
+    `((,(concat "\\\\def\\\\\\(" token "+\\)address@hidden") 1 
TeX-auto-symbol-check)
+      (,(concat "\\\\let\\\\\\(" token "+\\)address@hidden") 1 
TeX-auto-symbol-check)
+      (,(concat "\\\\font\\\\\\(" token "+\\)address@hidden") 1 
TeX-auto-symbol)
+      (,(concat "\\\\chardef\\\\\\(" token "+\\)address@hidden") 1 
TeX-auto-symbol)
+      (,(concat "\\\\new\\(?:count\\|dimen\\|muskip\\|skip\\)\\\\\\(" token 
"+\\)address@hidden")
+       1 TeX-auto-symbol)
+      (,(concat "\\\\newfont{?\\\\\\(" token "+\\)}?") 1 TeX-auto-symbol)
+      (,(concat "\\\\typein\\[\\\\\\(" token "+\\)\\]") 1 TeX-auto-symbol)
+      ("\\\\input +\\(\\.*[^#%\\\\\\.\n\r]+\\)\\(\\.[^#%\\\\\\.\n\r]+\\)?"
+       1 TeX-auto-file)
+      (,(concat "\\\\mathchardef\\\\\\(" token "+\\)address@hidden") 1 
TeX-auto-symbol)))
   "List of regular expression matching common LaTeX macro definitions.")
 
 (defvar TeX-auto-full-regexp-list plain-TeX-auto-regexp-list