# HG changeset patch # User Juri Linkov # Date 1133663437 0 # Node ID cf2274237464ac989a26cb7b97aff92e817219d7 # Parent 9f9d6c5330714c82a205721412517cdffdd81fc3 (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'. diff -r 9f9d6c533071 -r cf2274237464 lisp/font-core.el --- a/lisp/font-core.el Sat Dec 03 14:35:38 2005 +0000 +++ b/lisp/font-core.el Sun Dec 04 02:30:37 2005 +0000 @@ -146,7 +146,6 @@ 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'. " - :group 'font-lock ;; 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) ?\ )) @@ -291,12 +290,13 @@ (let (inhibit-quit) (turn-on-font-lock)))) -(easy-mmode-define-global-mode - global-font-lock-mode font-lock-mode turn-on-font-lock-if-enabled - :extra-args (dummy) - :initialize 'custom-initialize-safe-default - :init-value (not (or noninteractive emacs-basic-display)) - :version "22.1") +(define-global-minor-mode global-font-lock-mode + font-lock-mode turn-on-font-lock-if-enabled + :extra-args (dummy) + :initialize 'custom-initialize-safe-default + :init-value (not (or noninteractive emacs-basic-display)) + :group 'font-lock + :version "22.1") ;;; End of Global Font Lock mode.