[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.57 
emacs/lisp/emacs-lisp/easy-mmode.el:1.58
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.57    Thu Mar 31 21:15:31 2005
--- emacs/lisp/emacs-lisp/easy-mmode.el Tue Apr  5 14:45:41 2005
***************
*** 94,101 ****
    These following keyword arguments are supported (other keywords
    will be passed to `defcustom' if the minor mode is global):
  :group GROUP  Custom group name to use in all generated `defcustom' forms.
  :global GLOBAL        If non-nil specifies that the minor mode is not meant 
to be
!                       buffer-local, so don't make the variable MODE 
buffer-local.
                By default, the mode is buffer-local.
  :init-value VAL       Same as the INIT-VALUE argument.
  :lighter SPEC Same as the LIGHTER argument.
--- 94,104 ----
    These following keyword arguments are supported (other keywords
    will be passed to `defcustom' if the minor mode is global):
  :group GROUP  Custom group name to use in all generated `defcustom' forms.
+               Defaults to MODE without the possible trailing \"-mode\".
+               (This default may not be a valid customization group defined
+               with `defgroup'.  Make sure it is.)
  :global GLOBAL        If non-nil specifies that the minor mode is not meant 
to be
!               buffer-local, so don't make the variable MODE buffer-local.
                By default, the mode is buffer-local.
  :init-value VAL       Same as the INIT-VALUE argument.
  :lighter SPEC Same as the LIGHTER argument.
***************
*** 153,162 ****
      (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
         ;; Define the variable to enable or disable the mode.
         ,(if (not globalp)
--- 156,164 ----
      (unless group
        ;; We might as well provide a best-guess default group.
        (setq group
!           `(:group ',(intern (replace-regexp-in-string
!                               "-mode\\'" "" mode-name)))))
!     
      `(progn
         ;; Define the variable to enable or disable the mode.
         ,(if (not globalp)
***************
*** 220,227 ****
         ;; Return the new setting.
         ,mode)
  
!        ;; Autoloading an easy-mmode-define-minor-mode autoloads
!        ;; everything up-to-here.
         :autoload-end
  
         ;; The toggle's hook.
--- 222,229 ----
         ;; Return the new setting.
         ,mode)
  
!        ;; Autoloading a define-minor-mode autoloads everything
!        ;; up-to-here.
         :autoload-end
  
         ;; The toggle's hook.
***************
*** 280,288 ****
      (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
         ;; The actual global minor-mode
--- 282,289 ----
      (unless group
        ;; We might as well provide a best-guess default group.
        (setq group
!           `(:group ',(intern (replace-regexp-in-string
!                               "-mode\\'" "" (symbol-name mode))))))
  
      `(progn
         ;; The actual global minor-mode