aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/font-lock.el4
1 files changed, 0 insertions, 4 deletions
diff --git a/lisp/font-lock.el b/lisp/font-lock.el
index 885a654aae4..fd3ccdc0d1a 100644
--- a/lisp/font-lock.el
+++ b/lisp/font-lock.el
@@ -599,9 +599,6 @@ begins with `not'. For example:
599 (c-mode c++-mode) 599 (c-mode c++-mode)
600means that Font Lock mode is turned on for buffers in C and C++ modes only.") 600means that Font Lock mode is turned on for buffers in C and C++ modes only.")
601 601
602(defvar font-lock-inhibit-modes '(lisp-interaction-mode)
603 "Major modes for which Global Font Lock mode should not apply.")
604
605;;;###autoload 602;;;###autoload
606(defun global-font-lock-mode (&optional arg message) 603(defun global-font-lock-mode (&optional arg message)
607 "Toggle Global Font Lock mode. 604 "Toggle Global Font Lock mode.
@@ -647,7 +644,6 @@ turned on in a buffer if its major mode is one of `font-lock-global-modes'."
647 (set-buffer (car font-lock-buffers)) 644 (set-buffer (car font-lock-buffers))
648 (if (and (or font-lock-defaults 645 (if (and (or font-lock-defaults
649 (assq major-mode font-lock-defaults-alist)) 646 (assq major-mode font-lock-defaults-alist))
650 (not (memq major-mode font-lock-inhibit-modes))
651 (or (eq font-lock-global-modes t) 647 (or (eq font-lock-global-modes t)
652 (if (eq (car-safe font-lock-global-modes) 'not) 648 (if (eq (car-safe font-lock-global-modes) 'not)
653 (not (memq major-mode (cdr font-lock-global-modes))) 649 (not (memq major-mode (cdr font-lock-global-modes)))