146 |
The above is the default behavior of `font-lock-mode'; you may specify |
The above is the default behavior of `font-lock-mode'; you may specify |
147 |
your own function which is called when `font-lock-mode' is toggled via |
your own function which is called when `font-lock-mode' is toggled via |
148 |
`font-lock-function'. " |
`font-lock-function'. " |
|
:group 'font-lock |
|
149 |
;; Don't turn on Font Lock mode if we don't have a display (we're running a |
;; Don't turn on Font Lock mode if we don't have a display (we're running a |
150 |
;; batch job) or if the buffer is invisible (the name starts with a space). |
;; batch job) or if the buffer is invisible (the name starts with a space). |
151 |
(when (or noninteractive (eq (aref (buffer-name) 0) ?\ )) |
(when (or noninteractive (eq (aref (buffer-name) 0) ?\ )) |
290 |
(let (inhibit-quit) |
(let (inhibit-quit) |
291 |
(turn-on-font-lock)))) |
(turn-on-font-lock)))) |
292 |
|
|
293 |
(easy-mmode-define-global-mode |
(define-global-minor-mode global-font-lock-mode |
294 |
global-font-lock-mode font-lock-mode turn-on-font-lock-if-enabled |
font-lock-mode turn-on-font-lock-if-enabled |
295 |
:extra-args (dummy) |
:extra-args (dummy) |
296 |
:initialize 'custom-initialize-safe-default |
:initialize 'custom-initialize-safe-default |
297 |
:init-value (not (or noninteractive emacs-basic-display)) |
:init-value (not (or noninteractive emacs-basic-display)) |
298 |
:version "22.1") |
:group 'font-lock |
299 |
|
:version "22.1") |
300 |
|
|
301 |
;;; End of Global Font Lock mode. |
;;; End of Global Font Lock mode. |
302 |
|
|