Mercurial > emacs

changeset 61168:ef30a398bcbe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-mmode-define-global-mode, define-minor-mode): Call custom-current-group at load-time.
author Lute Kamstra <lute@gnu.org>
date Thu, 31 Mar 2005 14:49:09 +0000
parents bdeef980c30b
children e2b959792f0f
files lisp/emacs-lisp/easy-mmode.el
diffstat 1 files changed, 6 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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