[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.61 
emacs/lisp/emacs-lisp/easy-mmode.el:1.62
*** emacs/lisp/emacs-lisp/easy-mmode.el:1.61    Sun May  8 19:38:06 2005
--- emacs/lisp/emacs-lisp/easy-mmode.el Tue May 17 15:17:18 2005
***************
*** 36,42 ****
  ;; For each mode, easy-mmode defines the following:
  ;; <mode>      : The minor mode predicate. A buffer-local variable.
  ;; <mode>-map  : The keymap possibly associated to <mode>.
- ;; <mode>-hook : The hook run at the end of the toggle function.
  ;;       see `define-minor-mode' documentation
  ;;
  ;; eval
--- 36,41 ----
***************
*** 90,96 ****
  (defmacro define-minor-mode (mode doc &optional init-value lighter keymap 
&rest body)
    "Define a new minor mode MODE.
  This function defines the associated control variable MODE, keymap MODE-map,
! toggle command MODE, and hook MODE-hook.
  
  DOC is the documentation for the mode toggle command.
  Optional INIT-VALUE is the initial value of the mode's variable.
--- 89,95 ----
  (defmacro define-minor-mode (mode doc &optional init-value lighter keymap 
&rest body)
    "Define a new minor mode MODE.
  This function defines the associated control variable MODE, keymap MODE-map,
! and toggle command MODE.
  
  DOC is the documentation for the mode toggle command.
  Optional INIT-VALUE is the initial value of the mode's variable.
***************
*** 103,113 ****
  used (see below).
  
  BODY contains code that will be executed each time the mode is (dis)activated.
!   It will be executed after any toggling but before running the hooks.
!   Before the actual body code, you can write
!   keyword arguments (alternating keywords and values).
!   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\".
                Don't use this default group name unless you have written a
--- 102,112 ----
  used (see below).
  
  BODY contains code that will be executed each time the mode is (dis)activated.
!   It will be executed after any toggling but before running the hook variable
!   `mode-HOOK'.
!   Before the actual body code, you can write keyword arguments (alternating
!   keywords and values).  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\".
                Don't use this default group name unless you have written a
***************
*** 241,252 ****
         ;; up-to-here.
         :autoload-end
  
-        ;; The toggle's hook.
-        (defcustom ,hook nil
-        ,(format "Hook run at the end of function `%s'." mode-name)
-        ,@group
-        :type 'hook)
- 
         ;; Define the minor-mode keymap.
         ,(unless (symbolp keymap)      ;nil is also a symbol.
          `(defvar ,keymap-sym
--- 240,245 ----
***************
*** 323,330 ****
           (with-current-buffer buf
             (if ,global-mode (,turn-on) (when ,mode (,mode -1))))))
  
!        ;; Autoloading easy-mmode-define-global-mode
!        ;; autoloads everything up-to-here.
         :autoload-end
  
         ;; List of buffers left to process.
--- 316,323 ----
           (with-current-buffer buf
             (if ,global-mode (,turn-on) (when ,mode (,mode -1))))))
  
!        ;; Autoloading define-global-minor-mode autoloads everything
!        ;; up-to-here.
         :autoload-end
  
         ;; List of buffers left to process.