lisp/textmodes/tex-mode.el

39 (defvar font-lock-comment-face)
40 (defvar font-lock-doc-face)
315 An alternative value is \" . \", if you use a font with a narrow period."
416 ;(defvar tex-font-lock-keywords
419 ;     2 font-lock-function-name-face)
421 ;     2 font-lock-constant-face)
426 ;    ("\\\\\\([a-zA-Z@]+\\|.\\)" . font-lock-keyword-face)
427 ;    ("^[ \t\n]*\\\\def[\\\\@]\\(\\w+\\)" 1 font-lock-function-name-face keep))
430 ;     2 font-lock-function-name-face)
432 ;     2 font-lock-constant-face)
433 ;    ("^[ \t]*\\\\def\\\\\\(\\(\\w\\|@\\)+\\)" 1 font-lock-function-name-face)
447 (defconst tex-font-lock-keywords-1
477        ;; font-lock-syntactic-keywords causes the \ of \end{verbatim} to be
485        ;; interact with the other keywords in the same way as $...$ does.
490 	     ;; jit-lock will do funny things: when updating the buffer
501 	     3 'font-lock-function-name-face 'keep)
503 	     1 'font-lock-function-name-face 'keep)
505        (list (concat slash variables " *" arg) 2 'font-lock-variable-name-face)
507        (list (concat slash includes opt arg) 3 'font-lock-builtin-face)
510 	 1 font-lock-function-name-face))))
513 (defun tex-font-lock-append-prop (prop)
515 		'(font-lock-comment-face tex-verbatim))
518 (defconst tex-font-lock-keywords-2
519   (append tex-font-lock-keywords-1
555 	(list (concat slash citations opt arg) 3 'font-lock-constant-face)
561 	      'font-lock-string-face)
564 	(cons (concat slash specials-1) 'font-lock-warning-face)
566 	      1 'font-lock-warning-face)
572 	      '(tex-font-lock-append-prop 'bold) 'append)
574 	      '(tex-font-lock-append-prop 'italic) 'append)
579 	      2 '(tex-font-lock-append-prop 'italic) 'append)
583 	      3 '(tex-font-lock-append-prop 'bold) 'append)))))
586 (defun tex-font-lock-suscript (pos)
588 		    '(font-lock-constant-face font-lock-builtin-face
589 		      font-lock-comment-face tex-verbatim))
600 (defun tex-font-lock-match-suscript (limit)
614 (defconst tex-font-lock-keywords-3
615   (append tex-font-lock-keywords-2
616 	  '((tex-font-lock-match-suscript
617 	     (1 (tex-font-lock-suscript (match-beginning 0)) append))))
620 (defvar tex-font-lock-keywords tex-font-lock-keywords-1
626 (defvar tex-font-lock-syntactic-keywords
633       ;; 2 - font-lock considers the preceding \n as being part of the
635       ;;     line is re-font-locked on its own.
636       ;; There's a hack in tex-font-lock-keywords-1 to remove the verbatim
644        1 (tex-font-lock-verb (match-end 1))))))
646 (defun tex-font-lock-unfontify-region (beg end)
647   (font-lock-default-unfontify-region beg end)
667   '((t :inherit font-lock-string-face))
675   ;; '((t :inherit font-lock-string-face))
683 (defun tex-font-lock-verb (end)
691       ;; We used to do it inside tex-font-lock-syntactic-face-function, but
693       ;; because font-lock applies font-lock-syntactic-keywords to the whole
694       ;; preceding text but font-lock-syntactic-face-function only to the
709 (defun tex-font-lock-syntactic-face-function (state)
712      ((not char) font-lock-comment-face)
807   "Alist of face and TeX font name for facemenu.")
812   "Alist of face and LaTeX font name for facemenu.")
1081   (set (make-local-variable 'font-lock-defaults)
1082        '((tex-font-lock-keywords tex-font-lock-keywords-1
1083 	  tex-font-lock-keywords-2 tex-font-lock-keywords-3)
1086 	 (font-lock-mark-block-function . mark-paragraph)
1087 	 (font-lock-syntactic-face-function
1088 	  . tex-font-lock-syntactic-face-function)
1089 	 (font-lock-unfontify-region-function
1090 	  . tex-font-lock-unfontify-region)
1091 	 (font-lock-syntactic-keywords
1092 	  . tex-font-lock-syntactic-keywords)
2482 (defun doctex-font-lock-^^A ()
2503 (defun doctex-font-lock-syntactic-face-function (state)
2510       (tex-font-lock-syntactic-face-function state)
2511     font-lock-doc-face))
2513 (defvar doctex-font-lock-syntactic-keywords
2515    tex-font-lock-syntactic-keywords
2517    `(("\\(\\^\\)\\^A" (1 (doctex-font-lock-^^A))))))
2519 (defvar doctex-font-lock-keywords
2520   (append tex-font-lock-keywords
2521 	  '(("^%<[^>]*>" (0 font-lock-preprocessor-face t)))))
2526   (setq font-lock-defaults
2527 	(cons (append (car font-lock-defaults) '(doctex-font-lock-keywords))
2531 		   (font-lock-syntactic-keywords
2532 		    (cons (car x) 'doctex-font-lock-syntactic-keywords))
2533 		   (font-lock-syntactic-face-function
2534 		    (cons (car x) 'doctex-font-lock-syntactic-face-function))
2536 	       (cdr font-lock-defaults)))))