From 6826a1342ed7d0b60f38f9faab3bb3d9ca19f2d9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 15 May 2003 15:24:24 +0000 Subject: [PATCH] (make-autoload): Add arglist for define-derived-mode. --- lisp/emacs-lisp/autoload.el | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 8c228475e42..7aafeb3bebc 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -1,6 +1,6 @@ ;; autoload.el --- maintain autoloads in loaddefs.el -;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001 +;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2003 ;; Free Software Foundation, Inc. ;; Author: Roland McGrath @@ -34,6 +34,7 @@ (require 'lisp-mode) ;for `doc-string-elt' properties. (require 'help-fns) ;for help-add-fundoc-usage. +(eval-when-compile (require 'cl)) (defvar generated-autoload-file "loaddefs.el" "*File \\[update-file-autoloads] puts autoloads into. @@ -90,8 +91,11 @@ 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)) + (args (case car + ((defun defmacro defun* defmacro*) (nth 2 form)) + ((define-skeleton) '(&optional str arg)) + ((define-generic-mode define-derived-mode) nil) + (t))) (body (nthcdr (get car 'doc-string-elt) form)) (doc (if (stringp (car body)) (pop body)))) (when (listp args)