From 30b940a73115f6b2c0b4686d46df399cbd7381d3 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 3 Feb 2005 04:28:21 +0000 Subject: [PATCH] (font-lock-default-function): Handle the rare case where only font-lock-keywords is set. --- lisp/ChangeLog | 7 ++++++- lisp/font-core.el | 8 ++++---- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 032d796014a..6390dc64b49 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,11 @@ +2005-02-02 Stefan Monnier + + * font-core.el (font-lock-default-function): Handle the rare case where + only font-lock-keywords is set. + 2005-02-03 Kenichi Handa - * international/characters.el: Cancel previous change. for + * international/characters.el: Cancel previous change for I-WITH-DOT-ABOVE and DOTLESS-i. * international/latin-5.el: Cancel previous change. diff --git a/lisp/font-core.el b/lisp/font-core.el index ce4a35a0ec3..bbe1961e51e 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el @@ -1,7 +1,7 @@ ;;; font-core.el --- Core interface to font-lock -;; Copyright (C) 1992, 93, 94, 95, 96, 97, 98, 1999, 2000, 2001, 02, 2003 -;; Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, +;; 2002, 2003, 2005 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: languages, faces @@ -202,6 +202,7 @@ this function onto `change-major-mode-hook'." ;; Only do hard work if the mode has specified stuff in ;; `font-lock-defaults'. (when (or font-lock-defaults + (and (boundp 'font-lock-keywords) font-lock-keywords) (cdr (assq major-mode font-lock-defaults-alist))) (font-lock-mode-internal mode))) @@ -295,6 +296,5 @@ means that Font Lock mode is turned on for buffers in C and C++ modes only." (provide 'font-core) +;; arch-tag: f8c286e1-02f7-41d9-b89b-1b67780aed71 ;;; font-core.el ends here - -;;; arch-tag: f8c286e1-02f7-41d9-b89b-1b67780aed71 -- 2.39.2