From bc165bcee0fb371ff0fa86ddc64f0653da1c4bdf Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 23 Nov 1999 09:26:55 +0000 Subject: [PATCH] (make-autoload): Recognize the new `define-minor-mode'. (define-minor-mode): Specify `doc-string-elt'. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/autoload.el | 10 ++++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a42ab729244..d561c9a2f9f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 1999-11-23 Stefan Monnier + * 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 --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 7454068fbc4..bccc7e0ea88 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -63,19 +63,19 @@ that text will be copied verbatim to `generated-autoload-file'.") (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 `easy-mmode-define-minor-mode'." (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 @@ or `easy-mmode-define-minor-mode'." (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) -- 2.11.4.GIT