simplify latex font handling; try to figure out how to hilight DLA et al properly

diff --git a/.emacs b/.emacs
index 175bf7acb290780ab7dfb47ac6736b57334468b7..b5654389b68c75f9acc10ba33f1cd26420e12569 100644 (file)
--- a/.emacs
+++ b/.emacs
@@ -332,30 +332,47 @@ Argument DESCRIPTION MIME description."
 ;; ) 
 
 (require 'font-latex)
-(add-to-list 'font-latex-match-reference-keywords "fref")
-(add-to-list 'font-latex-match-reference-keywords "Fref")
-(add-to-list 'font-latex-match-reference-keywords "citep")
-(add-to-list 'font-latex-match-reference-keywords "citet")
-(font-latex-match-reference-make)
-(add-to-list 'font-latex-match-function-keywords "DLA")
-(add-to-list 'font-latex-match-function-keywords "RZ")
-(add-to-list 'font-latex-match-function-keywords "OM")
-(add-to-list 'font-latex-match-function-keywords "DL")
-(add-to-list 'font-latex-match-function-keywords "fixme")
-(add-to-list 'font-latex-match-function-keywords "acs")
-(add-to-list 'font-latex-match-function-keywords "acsp")
-(add-to-list 'font-latex-match-function-keywords "ac")
-(add-to-list 'font-latex-match-function-keywords "acp")
-(add-to-list 'font-latex-match-function-keywords "acl")
-(add-to-list 'font-latex-match-function-keywords "aclp")
-(add-to-list 'font-latex-match-function-keywords "acsu")
-(add-to-list 'font-latex-match-function-keywords "aclu")
-(add-to-list 'font-latex-match-function-keywords "acused")
-(font-latex-match-function-make)
+(setq font-latex-match-reference-keywords
+      '(
+        ("fref" "{")
+        ("Fref" "{")
+        ("citep" "{")
+        ("citet" "{")
+        ("acs" "{")
+        ("acsp" "{")
+        ("ac" "{")
+        ("acp" "{")
+        ("acl" "{")
+        ("aclp" "{")
+        ("acsu" "{")
+        ("aclu" "{")
+        ("acused" "{")
+;         ))
+; (setq font-latex-match-warning-keywords
+;       '(
+        ("DLA" "{")
+        ("RZ" "{")
+        ("OM" "{")
+        ("DL" "{")
+        ("fixme" "{")))
+      
 (setq-default TeX-parse-self t)
 (setq-default TeX-auto-save t)
 (setq-default TeX-master nil)
 
+;; this doesn't seem to work; not currently sure why
+; (setq font-latex-user-keyword-classes
+;       '(("my-warning-commands"
+;          (("DLA" "{")
+;           ("RZ" "{")
+;           ("OM" "{")
+;           ("DL" "{")
+;           ("fixme" "{")
+;           )
+;          (:foreground "red" :weight bold :underline (:color foreground-color :style line)))
+;         ))
+
+
 (defun insert-date ()
   "Insert date at point."
   (interactive)