From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 27 Sep 2002 23:03:17 +0000 (+0000)
Subject: (make-autoload): Add usage info to docstring.
X-Git-Tag: ttn-vms-21-2-B4~13018
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=890df022a2ba11447788f98c3522fca911c14fb4;p=emacs.git

(make-autoload): Add usage info to docstring.
(autoload-print-form): Also quote open-[-in-column 0.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 9633f3ea85e..27b24e64210 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -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 @@ or macro definition or a defcustom)."
 		   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 @@ or macro definition or a defcustom)."
      ;; 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 @@ markers before we call `read'."
 	      ;; 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))