[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/easy-mmode.el

[Lute Kamstra]

Index: emacs/lisp/emacs-lisp/easy-mmode.el
diff -c emacs/lisp/emacs-lisp/easy-mmode.el:1.55 
emacs/lisp/emacs-lisp/easy-mmode.el:1.56
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.55    Tue Nov  2 09:23:34 2004
--- emacs/lisp/emacs-lisp/easy-mmode.el Thu Mar 31 14:49:09 2005
***************
*** 1,6 ****
  ;;; easy-mmode.el --- easy definition for major and minor modes
  
! ;; Copyright (C) 1997,2000,01,02,03,2004  Free Software Foundation, Inc.
  
  ;; Author: Georges Brun-Cottan <address@hidden>
  ;; Maintainer: Stefan Monnier <address@hidden>
--- 1,7 ----
  ;;; easy-mmode.el --- easy definition for major and minor modes
  
! ;; Copyright (C) 1997, 2000, 2001, 2002, 2003, 2004, 2005
! ;;   Free Software Foundation, Inc.
  
  ;; Author: Georges Brun-Cottan <address@hidden>
  ;; Maintainer: Stefan Monnier <address@hidden>
***************
*** 152,159 ****
      (unless group
        ;; We might as well provide a best-guess default group.
        (setq group
!           `(:group ',(or (custom-current-group)
!                          (intern (replace-regexp-in-string
                                    "-mode\\'" "" mode-name))))))
  
      `(progn
--- 153,160 ----
      (unless group
        ;; We might as well provide a best-guess default group.
        (setq group
!           `(:group (or (custom-current-group)
!                        ',(intern (replace-regexp-in-string
                                    "-mode\\'" "" mode-name))))))
  
      `(progn
***************
*** 278,285 ****
      (unless group
        ;; We might as well provide a best-guess default group.
        (setq group
!           `(:group ',(or (custom-current-group)
!                          (intern (replace-regexp-in-string
                                    "-mode\\'" "" (symbol-name mode)))))))
  
      `(progn
--- 279,286 ----
      (unless group
        ;; We might as well provide a best-guess default group.
        (setq group
!           `(:group (or (custom-current-group)
!                        ',(intern (replace-regexp-in-string
                                    "-mode\\'" "" (symbol-name mode)))))))
  
      `(progn