# HG changeset patch # User stephent # Date 1030015198 0 # Node ID d41e92ee6d12bac82caa1c22dddefcad809e0b83 # Parent 715eed24e30eca567231eb376d538252ba3ca553 [xemacs-hg @ 2002-08-22 11:19:45 by stephent] typos & comments <87n0rfno3u.fsf@tleepslib.sk.tsukuba.ac.jp> <87it23nnvx.fsf@tleepslib.sk.tsukuba.ac.jp> diff -r 715eed24e30e -r d41e92ee6d12 lisp/ChangeLog --- a/lisp/ChangeLog Tue Aug 20 06:31:26 2002 +0000 +++ b/lisp/ChangeLog Thu Aug 22 11:19:58 2002 +0000 @@ -1,3 +1,12 @@ +2002-08-16 Stephen J. Turnbull + + * autoload.el (make-autoload): Make comment more precise. Support + docstring for define-derived-mode. + +2002-08-13 Stephen J. Turnbull + + * startup.el (command-line-do-help): Fix typo in help string. + 2002-08-11 John Paul Wallington * simple.el (join-line): New alias for `delete-indentation'. diff -r 715eed24e30e -r d41e92ee6d12 lisp/autoload.el --- a/lisp/autoload.el Tue Aug 20 06:31:26 2002 +0000 +++ b/lisp/autoload.el Thu Aug 22 11:19:58 2002 +0000 @@ -40,8 +40,9 @@ ;;; Code: (defun make-autoload (form file) - "Turn FORM, a defun or defmacro, into an autoload for source file FILE. -Returns nil if FORM is not a defun, define-skeleton or defmacro." + "Turn a definition generator FORM into an autoload for source file FILE. +Returns nil if FORM is not a defun, defun*, defmacro, defmacro*, +define-skeleton, or define-derived-mode." (let ((car (car-safe form))) (if (memq car '(defun defun* define-skeleton defmacro defmacro* define-derived-mode)) @@ -118,6 +119,7 @@ (put 'defmacro 'doc-string-elt 3) (put 'defmacro* 'doc-string-elt 3) (put 'define-skeleton 'doc-string-elt 3) +(put 'define-derived-mode 'doc-string-elt 4) (defun autoload-trim-file-name (file) "Returns a relative pathname of FILE including the last directory." diff -r 715eed24e30e -r d41e92ee6d12 lisp/startup.el --- a/lisp/startup.el Tue Aug 20 06:31:26 2002 +0000 +++ b/lisp/startup.el Thu Aug 22 11:19:58 2002 +0000 @@ -320,7 +320,7 @@ startup. Also implies `-vanilla'. -no-packages Pretend like the packages don't exist. Don't put any packages in the load path or set up any package - autoloads. Also Implies `-vanilla'. Use this when + autoloads. Also implies `-vanilla'. Use this when running XEmacs in batch mode when you aren't using any functionality in packages and want to make sure that you get no interference from packages