Mercurial > emacs
changeset 47664:a0d27828cf39
(make-autoload): Add usage info to docstring.
(autoload-print-form): Also quote open-[-in-column 0.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 27 Sep 2002 23:03:17 +0000 |
| parents | e9121795960f |
| children | 3cb92730a3fb |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 12 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Fri Sep 27 22:59:41 2002 +0000 +++ b/lisp/emacs-lisp/autoload.el Fri Sep 27 23:03:17 2002 +0000 @@ -33,7 +33,7 @@ ;;; Code: (require 'lisp-mode) ;for `doc-string-elt' properties. - +(require 'help-fns) ;for help-add-fundoc-usage. (defvar generated-autoload-file "loaddefs.el" "*File \\[update-file-autoloads] puts autoloads into. @@ -90,8 +90,14 @@ define-minor-mode defun* defmacro*)) (let* ((macrop (memq car '(defmacro defmacro*))) (name (nth 1 form)) + (args (if (memq car '(defun defmacro defun* defmacro*)) + (nth 2 form) t)) (body (nthcdr (get car 'doc-string-elt) form)) (doc (if (stringp (car body)) (pop body)))) + (when (listp args) + ;; Add the usage form at the end where describe-function-1 + ;; can recover it. + (setq doc (help-add-fundoc-usage doc args))) ;; `define-generic-mode' quotes the name, so take care of that (list 'autoload (if (listp name) name (list 'quote name)) file doc (or (and (memq car '(define-skeleton define-derived-mode @@ -121,10 +127,10 @@ ;; nil here indicates that this is not a special autoload form. (t nil)))) -;;; Forms which have doc-strings which should be printed specially. -;;; A doc-string-elt property of ELT says that (nth ELT FORM) is -;;; the doc-string in FORM. -;;; Those properties are now set in lisp-mode.el. +;; Forms which have doc-strings which should be printed specially. +;; A doc-string-elt property of ELT says that (nth ELT FORM) is +;; the doc-string in FORM. +;; Those properties are now set in lisp-mode.el. (defun autoload-trim-file-name (file) @@ -191,7 +197,7 @@ ;; the doc string. (with-current-buffer outbuf (save-excursion - (while (search-backward "\n(" begin t) + (while (re-search-backward "\n[[(]" begin t) (forward-char 1) (insert "\\")))) (if (null (cdr elt))