diff options
| author | Juri Linkov | 2005-12-04 02:30:37 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-12-04 02:30:37 +0000 |
| commit | 3ff522d9c54f533b7bb190939a9ef0092e663d54 (patch) | |
| tree | 3ab042f722d2470060419ad4d67a3b7f018aa0a2 | |
| parent | 2f33468cdc444484c081cef431405b7f6fb4d70f (diff) | |
| download | emacs-3ff522d9c54f533b7bb190939a9ef0092e663d54.tar.gz emacs-3ff522d9c54f533b7bb190939a9ef0092e663d54.zip | |
(global-font-lock-mode): Use define-global-minor-mode
instead of easy-mmode-define-global-mode. Add `:group font-lock'.
(font-lock-mode): Remove `:group font-lock'.
| -rw-r--r-- | lisp/font-core.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/font-core.el b/lisp/font-core.el index 2f903acee6b..5cfab04c956 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el | |||
| @@ -146,7 +146,6 @@ buffer local value for `font-lock-defaults', via its mode hook. | |||
| 146 | The above is the default behavior of `font-lock-mode'; you may specify | 146 | 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 | 147 | your own function which is called when `font-lock-mode' is toggled via |
| 148 | `font-lock-function'. " | 148 | `font-lock-function'. " |
| 149 | :group 'font-lock | ||
| 150 | ;; Don't turn on Font Lock mode if we don't have a display (we're running a | 149 | ;; Don't turn on Font Lock mode if we don't have a display (we're running a |
| 151 | ;; batch job) or if the buffer is invisible (the name starts with a space). | 150 | ;; batch job) or if the buffer is invisible (the name starts with a space). |
| 152 | (when (or noninteractive (eq (aref (buffer-name) 0) ?\ )) | 151 | (when (or noninteractive (eq (aref (buffer-name) 0) ?\ )) |
| @@ -291,12 +290,13 @@ means that Font Lock mode is turned on for buffers in C and C++ modes only." | |||
| 291 | (let (inhibit-quit) | 290 | (let (inhibit-quit) |
| 292 | (turn-on-font-lock)))) | 291 | (turn-on-font-lock)))) |
| 293 | 292 | ||
| 294 | (easy-mmode-define-global-mode | 293 | (define-global-minor-mode global-font-lock-mode |
| 295 | global-font-lock-mode font-lock-mode turn-on-font-lock-if-enabled | 294 | font-lock-mode turn-on-font-lock-if-enabled |
| 296 | :extra-args (dummy) | 295 | :extra-args (dummy) |
| 297 | :initialize 'custom-initialize-safe-default | 296 | :initialize 'custom-initialize-safe-default |
| 298 | :init-value (not (or noninteractive emacs-basic-display)) | 297 | :init-value (not (or noninteractive emacs-basic-display)) |
| 299 | :version "22.1") | 298 | :group 'font-lock |
| 299 | :version "22.1") | ||
| 300 | 300 | ||
| 301 | ;;; End of Global Font Lock mode. | 301 | ;;; End of Global Font Lock mode. |
| 302 | 302 | ||