commit: Avoid redundant arglist information, #'make-autoload.

changeset: 5578:4a6f90020a59 tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Tue Oct 04 10:59:17 2011 +0100 files: lisp/ChangeLog lisp/autoload.el description: Avoid redundant arglist information, #'make-autoload. lisp/ChangeLog addition: 2011-10-04 Aidan Kehoe <kehoea(a)parhasard.net&gt; * autoload.el (make-autoload): Don't add arglist info to the autoload form's docstring if the arglist info is already there. diff -r 0b6e7ae1e78f -r 4a6f90020a59 lisp/ChangeLog --- a/lisp/ChangeLog Tue Oct 04 09:02:14 2011 +0100 +++ b/lisp/ChangeLog Tue Oct 04 10:59:17 2011 +0100 ＠＠ -1,3 +1,9 ＠＠ +2011-10-04 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * autoload.el (make-autoload): + Don't add arglist info to the autoload form's docstring if the + arglist info is already there. + 2011-10-04 Aidan Kehoe <kehoea(a)parhasard.net&gt; * bytecomp.el (byte-compile-funcall): diff -r 0b6e7ae1e78f -r 4a6f90020a59 lisp/autoload.el --- a/lisp/autoload.el Tue Oct 04 09:02:14 2011 +0100 +++ b/lisp/autoload.el Tue Oct 04 10:59:17 2011 +0100 ＠＠ -283,7 +283,11 ＠＠ (name (nth 1 form)) (body (nthcdr (get car 'doc-string-elt) form)) (doc (if (stringp (car body)) (pop body)))) - (if (memq car '(defmacro defmacro* defun defun*)) + (if (and (memq car '(defmacro defmacro* defun defun*)) + (not (and doc (save-match-data + (string-match + "[\n\t ]*\narguments: ?(\\(.*\\))\n?\\'" + doc))))) (let ((arglist (nth 2 form))) (setq doc (concat (or doc "") "\n\narguments: " _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-patches