From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 7 Jul 1995 19:20:09 +0000 (+0000)
Subject: (make-autoload): Generate `(autoload ...)' form for
X-Git-Tag: emacs-19.34~3359
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5950a4fce1c9c94e8f20961730f1177eb1412ee4;p=emacs.git

(make-autoload): Generate `(autoload ...)' form for
`(define-skeleton ...)'
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index e2d7e156d8c..19b524ebb4f 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -32,24 +32,29 @@
 
 (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 or defmacro."
+Returns nil if FORM is not a defun, define-skeleton or defmacro."
   (let ((car (car-safe form)))
-    (if (memq car '(defun defmacro))
+    (if (memq car '(defun define-skeleton defmacro))
 	(let ((macrop (eq car 'defmacro))
 	      name doc)
-	  (setq form (cdr form))
-	  (setq name (car form))
-	  ;; Ignore the arguments.
-	  (setq form (cdr (cdr form)))
-	  (setq doc (car form))
+	  (setq form (cdr form)
+		name (car form)
+		;; Ignore the arguments.
+		form (cdr (if (eq car 'define-skeleton)
+			      form
+			    (cdr form)))
+		doc (car form))
 	  (if (stringp doc)
 	      (setq form (cdr form))
 	    (setq doc nil))
 	  (list 'autoload (list 'quote name) file doc
-		(eq (car-safe (car form)) 'interactive)
+		(or (eq car 'define-skeleton)
+		    (eq (car-safe (car form)) 'interactive))
 		(if macrop (list 'quote 'macro) nil)))
       nil)))
 
+(put 'define-skeleton 'doc-string-elt 3)
+
 (defconst generate-autoload-cookie ";;;###autoload"
   "Magic comment indicating the following form should be autoloaded.
 Used by \\[update-file-autoloads].  This string should be