# HG changeset patch
# User Lute Kamstra <lute@gnu.org>
# Date 1112280549 0
# Node ID ef30a398bcbe29946447bdb2f1090a1bb3ec50e7
# Parent  bdeef980c30b1eefb718f9e5671126d780722a11
(easy-mmode-define-global-mode, define-minor-mode): Call
custom-current-group at load-time.

diff -r bdeef980c30b -r ef30a398bcbe lisp/emacs-lisp/easy-mmode.el
--- a/lisp/emacs-lisp/easy-mmode.el	Thu Mar 31 11:22:55 2005 +0000
+++ b/lisp/emacs-lisp/easy-mmode.el	Thu Mar 31 14:49:09 2005 +0000
@@ -1,6 +1,7 @@
 ;;; easy-mmode.el --- easy definition for major and minor modes
 
-;; Copyright (C) 1997,2000,01,02,03,2004  Free Software Foundation, Inc.
+;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005
+;;   Free Software Foundation, Inc.
 
 ;; Author: Georges Brun-Cottan <Georges.Brun-Cottan@inria.fr>
 ;; Maintainer: Stefan Monnier <monnier@gnu.org>
@@ -152,8 +153,8 @@
     (unless group
       ;; We might as well provide a best-guess default group.
       (setq group
-	    `(:group ',(or (custom-current-group)
-			   (intern (replace-regexp-in-string
+	    `(:group (or (custom-current-group)
+			 ',(intern (replace-regexp-in-string
 				    "-mode\\'" "" mode-name))))))
 
     `(progn
@@ -278,8 +279,8 @@
     (unless group
       ;; We might as well provide a best-guess default group.
       (setq group
-	    `(:group ',(or (custom-current-group)
-			   (intern (replace-regexp-in-string
+	    `(:group (or (custom-current-group)
+			 ',(intern (replace-regexp-in-string
 				    "-mode\\'" "" (symbol-name mode)))))))
 
     `(progn