[AUCTeX-devel] TeX-token-char

[Masayuki Ataka]

Sorry, I posted wrong ML.  I emailed again.
----------

I propose a new variable TeX-token-char.
This is a sample code in tex.el.

>> FROM HERE <<
(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
  (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.")
>> END HERE <<

Currently, plain-TeX-auto-regexp-list is defined in two files:
tex.el and tex-jp.el.  It is confused to maintenance both
codes.  And I should say that AUCTeX 9.10g (IIRC) did not work
on Japanese text because plain-TeX-auto-regexp-list in
tex-jp.el did not follow the change of it in tex.el.

If no objection, I'll check in this change, fix latex.el in the
same way, and remove plain-TeX-auto-regexp-list, etc... from
tex-jp.el.


regards,
---
email: address@hidden
Name:: Masayuki Ataka // (Japan)