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

[Ralf Angeli]

CVSROOT:        /cvsroot/auctex
Module name:    auctex
Changes by:     Ralf Angeli <angeli>    08/02/11 22:23:33

Index: font-latex.el
===================================================================
RCS file: /cvsroot/auctex/auctex/font-latex.el,v
retrieving revision 5.183
retrieving revision 5.184
diff -u -b -r5.183 -r5.184
--- font-latex.el       5 Feb 2008 21:47:04 -0000       5.183
+++ font-latex.el       11 Feb 2008 22:23:33 -0000      5.184
@@ -446,7 +446,11 @@
 use."
   ;; Note: The functions are byte-compiled at the end of font-latex.el.
   ;; FIXME: Is the cond-clause possible inside of the defun?
-  (cond ((eq type 'command)
+
+  ;; In an earlier version of font-latex the type could be a list like
+  ;; (command 1).  This indicated a macro with one argument.  Provide
+  ;; a match function in this case but don't actually support it.
+  (cond ((or (eq type 'command) (listp type))
         (eval `(defun ,(intern (concat prefix name)) (limit)
                  ,(concat "Fontify `" prefix name "' up to LIMIT.
 
@@ -494,7 +498,10 @@
 This is a helper function for `font-latex-make-built-in-keywords'
 and `font-latex-make-user-keywords' and not intended for general
 use."
-  (cond ((eq type 'command)
+  ;; In an earlier version of font-latex the type could be a list like
+  ;; (command 1).  This indicated a macro with one argument.  Provide
+  ;; a matcher in this case but don't actually support it.
+  (cond ((or (eq type 'command) (listp type))
         `(,(intern (concat prefix name))
           (0 (font-latex-matched-face 0) append t)
           (1 (font-latex-matched-face 1) append t)