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]+\\)[EMAIL PROTECTED]" 1 TeX-auto-symbol-check)
- ("\\\\let\\\\\\([a-zA-Z]+\\)[EMAIL PROTECTED]" 1 TeX-auto-symbol-check)
- ("\\\\font\\\\\\([a-zA-Z]+\\)[EMAIL PROTECTED]" 1 TeX-auto-symbol)
- ("\\\\chardef\\\\\\([a-zA-Z]+\\)[EMAIL PROTECTED]" 1 TeX-auto-symbol)
- ("\\\\new\\(count\\|dimen\\|muskip\\|skip\\)\\\\\\([a-z]+\\)[EMAIL
PROTECTED]"
- 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]+\\)[EMAIL PROTECTED]" 1 TeX-auto-symbol))
+ (let ((token TeX-token-char))
+ `((,(concat "\\\\def\\\\\\(" token "+\\)[EMAIL PROTECTED]") 1
TeX-auto-symbol-check)
+ (,(concat "\\\\let\\\\\\(" token "+\\)[EMAIL PROTECTED]") 1
TeX-auto-symbol-check)
+ (,(concat "\\\\font\\\\\\(" token "+\\)[EMAIL PROTECTED]") 1
TeX-auto-symbol)
+ (,(concat "\\\\chardef\\\\\\(" token "+\\)[EMAIL PROTECTED]") 1
TeX-auto-symbol)
+ (,(concat "\\\\new\\(?:count\\|dimen\\|muskip\\|skip\\)\\\\\\(" token
"+\\)[EMAIL PROTECTED]")
+ 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 "+\\)[EMAIL PROTECTED]") 1
TeX-auto-symbol)))
"List of regular expression matching common LaTeX macro definitions.")
(defvar TeX-auto-full-regexp-list plain-TeX-auto-regexp-list
_______________________________________________
auctex-diffs mailing list
[EMAIL PROTECTED]
http://lists.gnu.org/mailman/listinfo/auctex-diffs
