Mercurial > emacs
changeset 26552:88324520c7fc
(make-autoload): Recognize the new `define-minor-mode'.
(define-minor-mode): Specify `doc-string-elt'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 23 Nov 1999 09:26:55 +0000 |
| parents | 271f77895660 |
| children | b3b1f3b51229 |
| files | lisp/ChangeLog lisp/emacs-lisp/autoload.el |
| diffstat | 2 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)