(font-lock-set-defaults): Do nothing if font-lock-keywords is already set.

a47d9087 · Richard M. Stallman · 925a622c · a47d9087
Commit a47d9087 authored Dec 23, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 11 additions and 10 deletions

lisp/font-lock.el lisp/font-lock.el +11 -10

No files found.
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -409,16 +409,17 @@ This can take a while for large buffers."

 (defun font-lock-set-defaults ()
  "Set `font-lock-keywords' to something appropriate for this mode."
-  (setq font-lock-keywords
-	(cond ((eq major-mode 'lisp-mode)	lisp-font-lock-keywords)
-	      ((eq major-mode 'emacs-lisp-mode)	lisp-font-lock-keywords)
-	      ((eq major-mode 'c-mode)		c-font-lock-keywords)
-	      ((eq major-mode 'c++-c-mode)	c-font-lock-keywords)
-	      ((eq major-mode 'c++-mode)	c++-font-lock-keywords)
-	      ((eq major-mode 'perl-mode)	perl-font-lock-keywords)
-	      ((eq major-mode 'tex-mode)	tex-font-lock-keywords)
-	      ((eq major-mode 'texinfo-mode)	texi-font-lock-keywords)
-	      (t nil))))
+  (if (not font-lock-keywords)		; if not already set.
+      (setq font-lock-keywords
+	    (cond ((eq major-mode 'lisp-mode)	    lisp-font-lock-keywords)
+		  ((eq major-mode 'emacs-lisp-mode) lisp-font-lock-keywords)
+		  ((eq major-mode 'c-mode)	    c-font-lock-keywords)
+		  ((eq major-mode 'c++-c-mode)	    c-font-lock-keywords)
+		  ((eq major-mode 'c++-mode)	    c++-font-lock-keywords)
+		  ((eq major-mode 'perl-mode) 	    perl-font-lock-keywords)
+		  ((eq major-mode 'tex-mode)        tex-font-lock-keywords)
+		  ((eq major-mode 'texinfo-mode)    texi-font-lock-keywords)
+		  (t nil))))

 (defconst lisp-font-lock-keywords-1
 '(;;