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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    07/04/28 12:23:56

Index: font-latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/font-latex.el,v
retrieving revision 5.168
retrieving revision 5.169
diff -u -b -r5.168 -r5.169
--- font-latex.el       28 Apr 2007 11:58:45 -0000      5.168
+++ font-latex.el       28 Apr 2007 12:23:56 -0000      5.169
@@ -1306,6 +1306,10 @@
   "Return face at position POS in `font-latex-matched-faces'."
   (nth pos font-latex-matched-faces))
 
+(defvar font-latex-command-with-args-default-spec "* [] {}"
+  "Default specifier for keywords without syntax description.
+Set this to nil if verification of command syntax is unwanted.")
+
 (defun font-latex-match-command-with-arguments (regexp keywords face limit)
   "Search for regexp command KEYWORDS[opt]{arg} before LIMIT.
 Returns nil if none of KEYWORDS is found."
@@ -1318,7 +1322,8 @@
        (let* ((beg (match-beginning 0))
               end                 ; Used for multiline text property.
               match-data
-              (spec-string (cadr (assoc (match-string 1) keywords)))
+              (spec-string (or (cadr (assoc (match-string 1) keywords))
+                               font-latex-command-with-args-default-spec))
               (spec-list (when spec-string
                            (save-match-data
                              ;; Create a list from space-separated specs.