]> git.eshelyaron.com Git - emacs.git/commitdiff
(font-lock-function): New variable.
authorColin Walters <walters@gnu.org>
Thu, 23 May 2002 03:39:00 +0000 (03:39 +0000)
committerColin Walters <walters@gnu.org>
Thu, 23 May 2002 03:39:00 +0000 (03:39 +0000)
(font-lock-default-function): New function, created from `font-lock-mode'.
(font-lock-mode): Just funcall `font-lock-default-function'.

lisp/ChangeLog
lisp/font-core.el

index 4d1c545b02d07772fa15eeb0e6657ab987637891..5ab630ecba064be79a1dff4d7adf466f64a9457b 100644 (file)
@@ -1,5 +1,8 @@
 2002-05-22  Colin Walters  <walters@cis.ohio-state.edu>
 
+       * info.el (Info-mode-hook): Change `font-lock-mode' to
+       `turn-on-font-lock'.
+
        * font-core.el (font-lock-function): New variable.
        (font-lock-default-function): New function, created from
        `font-lock-mode'.
index 4447ecd4e7b8498dcdec84764c53c4b2c5aadeb8..a00dc787315cfbdf56b79021165ce241c2d43611 100644 (file)
@@ -144,6 +144,12 @@ wish to have fontification turned on and off by Font Lock.  If this
 variable is non-nil, then calling `font-lock-mode' will simply toggle
 the symbol property `face' of CATEGORY-SYMBOL.")
 
+(defvar font-lock-function 'font-lock-default-function
+  "A function which is called when `font-lock-mode' is toggled.
+It will be passed one argument, which is the current value of
+`font-lock-mode'.")
+(make-variable-buffer-local 'font-lock-default-function)
+
 (define-minor-mode font-lock-mode
   "Toggle Font Lock mode.
 With arg, turn Font Lock mode off if and only if arg is a non-positive
@@ -198,13 +204,19 @@ syntactic change on other lines, you can use \\[font-lock-fontify-block].
 
 See the variable `font-lock-defaults-alist' for the Font Lock mode default
 settings.  You can set your own default settings for some mode, by setting a
-buffer local value for `font-lock-defaults', via its mode hook."
+buffer local value for `font-lock-defaults', via its mode hook.
+
+The above is the default behavior of `font-lock-mode'; you may specify
+your own function which is called when `font-lock-mode' is toggled via
+`font-lock-function'. "
   nil nil nil
   ;; Don't turn on Font Lock mode if we don't have a display (we're running a
   ;; batch job) or if the buffer is invisible (the name starts with a space).
   (when (or noninteractive (eq (aref (buffer-name) 0) ?\ ))
     (setq font-lock-mode nil))
+  (funcall font-lock-function font-lock-mode))
 
+(defun font-lock-default-function (font-lock-mode)
   ;; Turn on Font Lock mode.
   (when font-lock-mode
     (font-lock-set-defaults)