diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2003-02-26 18:58:27 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2003-02-26 18:58:27 +0000 |
commit | ae284797f216a09db744ac092524eaa824d09fcb (patch) | |
tree | 755a8d8686f53a90f5546cada4298751fade8657 | |
parent | 028423096c11fa5f2d4871619509dbd3dba711c6 (diff) | |
parent | 268b809657ff4823d4b87cc06410823d89102e8c (diff) |
This commit was generated by cvs2git to track changes on a CVS vendor
branch.
-rw-r--r-- | x-symbol/lisp/x-symbol-tex.el | 22 |
1 files changed, 7 insertions, 15 deletions
diff --git a/x-symbol/lisp/x-symbol-tex.el b/x-symbol/lisp/x-symbol-tex.el index d67df4b8..cfcbaf4e 100644 --- a/x-symbol/lisp/x-symbol-tex.el +++ b/x-symbol/lisp/x-symbol-tex.el @@ -61,7 +61,7 @@ 'x-symbol-tex-auto-coding-alist))) x-symbol-coding (not x-symbol-mode) x-symbol-mode x-symbol-mode) - "TODO" + "See the documentation of `x-symbol-auto-style'." :group 'x-symbol-tex :group 'x-symbol-mode :type 'x-symbol-auto-style) @@ -142,20 +142,12 @@ according to `x-symbol-token-input', it will not insert the space." :encode-spec x-symbol-tex-encode :decode-regexp "\\\\\\(?:[@A-Za-z]+\\|[-{}#_&|%$]\\|[.~^\"'`=]\\(?:[A-Za-z]\\|{}\\|\\(\\\\\\)[ij][@A-Za-z]?\\)\\)" :decode-spec x-symbol-tex-decode + :input-regexp ("\\\\\\(?:[.~^\"'`=]\\\\[ij]\\|[ckvuHr]\\(?: [A-Za-z]\\|{ ?}\\)\\)\\'" "\\\\\\(?:[@A-Za-z]+\\|[-{}#_&|%$]\\|[.~^\"'`=]\\(?:[A-Za-z]\\|{}\\)\\)\\'") + :input-spec x-symbol-tex-token-input :token-list x-symbol-tex-default-token-list :after-init x-symbol-tex-after-init-language) "Token grammar for language `tex'.") -(defvar x-symbol-tex-input-token-grammar - '("\\\\\\(?:[@A-Za-z]+\\|[-{}#_&|%$]\\|[.~^\"'`=]\\(?:[A-Za-z]\\|{}\\)\\)\\'" - . x-symbol-tex-token-input) - "Grammar of input method Token for language `tex', part 1.") - -(defvar x-symbol-tex-input-token-extra-grammar - '("\\\\\\(?:[.~^\"'`=]\\\\[ij]\\|[ckvuHr]\\(?: [A-Za-z]\\|{ ?}\\)\\)\\'" - ?\\ (math . "[a-z@-Z]") (t . "[a-z@-Z]")) - "Grammar of input method Token for language `tex', part 2.") - ;; The following vars could be made customizable, but it would not be a good ;; idea if different users have a different decode behavior: @@ -1044,13 +1036,13 @@ See `x-symbol-init-language' and `x-symbol-tex-token-list'.") (defun x-symbol-tex-token-input (input-regexp decode-obarray command-char) (let ((res (x-symbol-match-token-before - (cdr x-symbol-tex-input-token-extra-grammar) - (list (car x-symbol-tex-input-token-extra-grammar) input-regexp) - decode-obarray command-char))) + '(?\\ (math . "[a-z@-Z]") (t . "[a-z@-Z]")) + input-regexp decode-obarray command-char))) (and x-symbol-tex-token-suppress-space (eq (caddr res) t) ; text mode \MACRO (eq command-char ?\ ) - (null prefix-arg) (setq prefix-arg 0)) + (null prefix-arg) + (setq prefix-arg 0)) res)) |