[AUCTeX-commit] Changes to auctex/font-latex.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/03/19 19:02:52

Index: font-latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/font-latex.el,v
retrieving revision 5.163
retrieving revision 5.164
diff -u -b -r5.163 -r5.164
--- font-latex.el       17 Mar 2007 10:38:52 -0000      5.163
+++ font-latex.el       19 Mar 2007 19:02:52 -0000      5.164
@@ -777,6 +777,15 @@
 
 ;;; Syntactic keywords
 
+(defvar font-latex-syntactic-keywords nil
+  "Syntactic keywords used by `font-latex'.")
+(make-variable-buffer-local 'font-latex-syntactic-keywords)
+
+(defvar font-latex-syntactic-keywords-extra nil
+  "List of syntactic keywords to add to `font-latex-syntactic-keywords'.
+The form should be the same as in `font-lock-syntactic-keywords'.")
+(make-variable-buffer-local 'font-latex-syntactic-keywords-extra)
+
 (defun font-latex-set-syntactic-keywords ()
   "Set the variable `font-latex-syntactic-keywords'.
 This function can be used to refresh the variable in case other
@@ -832,16 +841,14 @@
                   `(,(concat "\\\\\\(?:" verb-macros-with-braces "\\)"
                              "\\({\\).*?[^\\]\\(?:\\\\\\\\\\)*\\(}\\)")
                     (1 "|") (2 "|")))))
+  (when font-latex-syntactic-keywords-extra
+    (nconc font-latex-syntactic-keywords font-latex-syntactic-keywords-extra))
   ;; Cater for docTeX mode.
   (setq font-latex-doctex-syntactic-keywords
        (append font-latex-syntactic-keywords
                ;; For docTeX comment-in-doc.
                `(("\\(\\^\\)\\^A" (1 (font-latex-doctex-^^A)))))))
 
-(defvar font-latex-syntactic-keywords nil
-  "Syntactic keywords used by `font-latex'.")
-(make-variable-buffer-local 'font-latex-syntactic-keywords)
-
 
 ;;; Syntactic fontification