[AUCTeX-diffs] Changes to auctex/style/jurabib.el,v

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/08/22 19:15:40

Index: jurabib.el
===================================================================
RCS file: /cvsroot/auctex/auctex/style/jurabib.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- jurabib.el  25 May 2006 07:50:56 -0000      1.4
+++ jurabib.el  22 Aug 2007 19:15:40 -0000      1.5
@@ -1,6 +1,6 @@
 ;;; jurabib.el --- AUCTeX style for the `jurabib' package
 
-;; Copyright (C) 2004 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2007 Free Software Foundation, Inc.
 
 ;; Author: Ralf Angeli <address@hidden>
 ;; Maintainer: address@hidden
@@ -110,25 +110,38 @@
      ;; Fontification
      (when (and (featurep 'font-latex)
                (eq TeX-install-font-lock 'font-latex-setup))
-       (mapcar (lambda (item)
-                (add-to-list 'font-latex-match-reference-keywords-local
-                             (car item)))
-              citecmds)
-       ;; FIXME: Second argument does not get fontified.
-       (add-to-list 'font-latex-match-reference-keywords-local "citefield")
-       (add-to-list 'font-latex-match-reference-keywords-local "footcitefield")
-       (font-latex-match-reference-make)
-       (mapcar (lambda (keyword)
-                (add-to-list 'font-latex-match-function-keywords-local
-                             keyword))
-              '("citeswithoutentry" "nextcitefull" "nextcitenotitle"
-                "nextcitereset" "nextciteshort"))
-       (font-latex-match-function-make)
-       (mapcar (lambda (keyword)
-                (add-to-list 'font-latex-match-variable-keywords-local
-                             keyword))
-              '("citenotitlefortype" "citetitlefortype" "jurabibsetup"))
-       (font-latex-match-variable-make))
+       (font-latex-add-keywords '(("cite" "*[[{")
+                                 ("citetitle" "[[{")
+                                 ("fullcite" "[[{")
+                                 ("citet" "[{")
+                                 ("citealt" "[{")
+                                 ("citep" "[[{")
+                                 ("citealp" "[[{")
+                                 ("citeauthor" "[[{")
+                                 ("citeyear" "[[{")
+                                 ("footcite" "[[{")
+                                 ("footcite*" "[[{")
+                                 ("footcitetitle" "[[{")
+                                 ("footfullcite" "[[{")
+                                 ("footcitet" "[{")
+                                 ("footcitealt" "[{")
+                                 ("footcitep" "[[{")
+                                 ("footcitealp" "[[{")
+                                 ("footciteauthor" "[[{")
+                                 ("footciteyear" "[[{")
+                                 ("citefield" "[{{")
+                                 ("footcitefield" "[{{"))
+                               'reference)
+       (font-latex-add-keywords '(("citeswithoutentry" "{")
+                                 ("nextcitefull" "{")
+                                 ("nextcitenotitle" "{")
+                                 ("nextcitereset" "{")
+                                 ("nextciteshort" "{"))
+                               'function)
+       (font-latex-add-keywords '(("citenotitlefortype" "{")
+                                 ("citetitlefortype" "{")
+                                 ("jurabibsetup" "{"))
+                               'variable))
 
      ;; Tell RefTeX (Thanks, Carsten)
      (when (and (fboundp 'reftex-set-cite-format)