Mercurial > emacs

changeset 9444:e21d4ebc3160

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-lock-set-defaults): Do nothing if font-lock-keywords already non-nil. Use font-lock-defaults. (font-lock-defaults): New variable.
author Richard M. Stallman <rms@gnu.org>
date Tue, 11 Oct 1994 09:03:49 +0000
parents 5eaca32b6af6
children 712af9626dc0
files lisp/font-lock.el
diffstat 1 files changed, 25 insertions(+), 19 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/font-lock.el	Tue Oct 11 08:22:38 1994 +0000
+++ b/lisp/font-lock.el	Tue Oct 11 09:03:49 1994 +0000
@@ -807,30 +807,36 @@
 is non-nil, syntactic fontification (strings and comments) is not performed.
 If CASE-FOLD is non-nil, the case of the keywords is ignored when fontifying.")
 
+(defvar font-lock-defaults nil
+  "If set by a major mode, this specifies the defaults for Font Lock mode.")
+
 (defun font-lock-set-defaults ()
   "Set fontification defaults appropriately for this mode.
 Sets `font-lock-keywords', `font-lock-keywords-case-fold-search' and
 `font-lock-no-comments' using `font-lock-defaults-alist'.
 Also sets `font-lock-syntax-table' for C and C++ modes."
-  (let ((defaults (cdr (assq major-mode font-lock-defaults-alist))))
-    ;; Keywords?
-    (if (not font-lock-keywords)	; if not already set.
-	(setq font-lock-keywords (eval (nth 0 defaults))))
-    ;; Syntactic?
-    (if (nth 1 defaults)
-	(set (make-local-variable 'font-lock-no-comments) t))
-    ;; Case fold?
-    (if (nth 2 defaults)
-	(set (make-local-variable 'font-lock-keywords-case-fold-search) t))
-    ;; Syntax table?
-    (cond ((eq major-mode 'c-mode)
-	   (make-local-variable 'font-lock-syntax-table)
-	   (setq font-lock-syntax-table (copy-syntax-table (syntax-table)))
-	   (modify-syntax-entry ?_ "w" font-lock-syntax-table))
-	  ((eq major-mode 'c++-c-mode)
-	   (make-local-variable 'font-lock-syntax-table)
-	   (setq font-lock-syntax-table (copy-syntax-table (syntax-table)))
-	   (modify-syntax-entry ?_ "w" font-lock-syntax-table)))))
+  ;; If font-lock-keywords is already set, assume the major mode
+  ;; has done exactly what it wants.
+  (or font-lock-keywords
+      (let ((defaults (or font-lock-defaults
+			  (cdr (assq major-mode font-lock-defaults-alist)))))
+	;; Keywords?
+	(setq font-lock-keywords (eval (nth 0 defaults)))
+	;; Syntactic?
+	(if (nth 1 defaults)
+	    (set (make-local-variable 'font-lock-no-comments) t))
+	;; Case fold?
+	(if (nth 2 defaults)
+	    (set (make-local-variable 'font-lock-keywords-case-fold-search) t))
+	;; Syntax table?
+	(cond ((eq major-mode 'c-mode)
+	       (make-local-variable 'font-lock-syntax-table)
+	       (setq font-lock-syntax-table (copy-syntax-table (syntax-table)))
+	       (modify-syntax-entry ?_ "w" font-lock-syntax-table))
+	      ((eq major-mode 'c++-c-mode)
+	       (make-local-variable 'font-lock-syntax-table)
+	       (setq font-lock-syntax-table (copy-syntax-table (syntax-table)))
+	       (modify-syntax-entry ?_ "w" font-lock-syntax-table))))))
 
 ;; Install ourselves: