(font-lock-fontify-syntactic-keywords-region):

More changes to go with previous change.

diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 033bf20bf71aed5b8441580c79d727aee75d7af2..ce2548cc84d01ea22b9a9098517ed38709603810 100644 (file)
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -1257,7 +1257,7 @@ START should be at the beginning of a line."
                                        font-lock-syntactic-keywords)))
   ;; Get down to business.
   (let ((case-fold-search font-lock-keywords-case-fold-search)
-       (keywords (cdr font-lock-syntactic-keywords))
+       (keywords (cddr font-lock-syntactic-keywords))
        keyword matcher highlights)
     (while keywords
       ;; Find an occurrence of `matcher' from `start' to `end'.