# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 943349215 0
# Node ID 88324520c7fc0f0c5a19213dcad4957edf4fd9b0
# Parent  271f778956600dc146835f5507f9497574443fd8
(make-autoload): Recognize the new `define-minor-mode'.
(define-minor-mode): Specify `doc-string-elt'.

diff -r 271f77895660 -r 88324520c7fc lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Nov 23 09:08:38 1999 +0000
+++ b/lisp/ChangeLog	Tue Nov 23 09:26:55 1999 +0000
@@ -1,5 +1,9 @@
 1999-11-23  Stefan Monnier  <monnier@cs.yale.edu>
 
+	* emacs-lisp/autoload.el (make-autoload): Recognize the new
+	  `define-minor-mode'.
+	(define-minor-mode): Specify `doc-string-elt'.
+
 	* emacs-lisp/easy-mmode.el: Changed maintainer.
 	(easy-mmode-define-toggle): New BODY arg; Never append `-mode';
 	  Use defcustom for the hooks; Improve the auto-generated docstrings.
diff -r 271f77895660 -r 88324520c7fc lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Tue Nov 23 09:08:38 1999 +0000
+++ b/lisp/emacs-lisp/autoload.el	Tue Nov 23 09:26:55 1999 +0000
@@ -63,19 +63,19 @@
 (defun make-autoload (form file)
   "Turn FORM into an autoload or defvar for source file FILE.
 Returns nil if FORM is not a `defun', `define-skeleton',
-`define-derived-mode', `define-generic-mode', `defmacro', `defcustom'
-or `easy-mmode-define-minor-mode'."
+`define-derived-mode', `define-generic-mode', `defmacro', `defcustom',
+`define-minor-mode' or `easy-mmode-define-minor-mode'."
   (let ((car (car-safe form)))
     (if (memq car '(defun define-skeleton defmacro define-derived-mode 
 		     define-generic-mode easy-mmode-define-minor-mode
-		     defun*))
+		     define-minor-mode defun*))
 	(let ((macrop (eq car 'defmacro))
 	      name doc)
 	  (setq form (cdr form)
 		name (car form)
 		;; Ignore the arguments.
 		form (cdr (cond 
-			   ((memq car '(define-skeleton 
+			   ((memq car '(define-skeleton define-minor-mode
 					 easy-mmode-define-minor-mode)) form)
 			   ((eq car 'define-derived-mode) (cdr (cdr form)))
 			   ((eq car 'define-generic-mode) 
@@ -90,6 +90,7 @@
 		(or (eq car 'define-skeleton) (eq car 'define-derived-mode)
 		    (eq car 'define-generic-mode) 
 		    (eq car 'easy-mmode-define-minor-mode)
+		    (eq car 'define-minor-mode)
 		    (eq (car-safe (car form)) 'interactive))
 		(if macrop (list 'quote 'macro) nil)))
       ;; Convert defcustom to a simpler (and less space-consuming) defvar,
@@ -136,6 +137,7 @@
 (put 'define-skeleton 'doc-string-elt 3)
 (put 'define-derived-mode 'doc-string-elt 3)
 (put 'easy-mmode-define-minor-mode 'doc-string-elt 3)
+(put 'define-minor-mode 'doc-string-elt 3)
 (put 'define-generic-mode 'doc-string-elt 3)