* lisp/font-lock.el (font-lock-compile-keyword): Don't confuse a lambda

expression for a list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7dcc1eb9edb94cc60c06e8778be28cfd271b9df1..e79080ab3d89425bf0be46d4e875e9ce810904c5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2014-09-22  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * font-lock.el (font-lock-compile-keyword): Don't confuse a lambda
+       expression for a list.
+
        * emacs-lisp/bytecomp.el (byte-compile-lambda): Don't add fundoc usage
        for functions with no arguments.
 

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index fe37c24579b4b060d4b523b44c610a944c7ab583..0a6a0e80d150f0185008dd809afa38a4c06d4e93 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1759,7 +1759,7 @@ If SYNTACTIC-KEYWORDS is non-nil, it means these keywords are used for
       keywords
     (setq keywords
          (cons t (cons keywords
-                       (mapcar 'font-lock-compile-keyword keywords))))
+                       (mapcar #'font-lock-compile-keyword keywords))))
     (if (and (not syntactic-keywords)
             (let ((beg-function
                    (or font-lock-beginning-of-syntax-function
@@ -1783,7 +1783,7 @@ If SYNTACTIC-KEYWORDS is non-nil, it means these keywords are used for
     keywords))
 
 (defun font-lock-compile-keyword (keyword)
-  (cond ((nlistp keyword)                      ; MATCHER
+  (cond ((or (functionp keyword) (nlistp keyword)) ; MATCHER
         (list keyword '(0 font-lock-keyword-face)))
        ((eq (car keyword) 'eval)               ; (eval . FORM)
         (font-lock-compile-keyword (eval (cdr keyword))))