* emacs-lisp/autoload.el (make-autoload): Handle defclass form.

* emacs-lisp/eieio.el (eieio-defclass-autoload): Autoload.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5fdf4deb8af03ca6edb7ce979ad093e4d2af8e04..060c238c7257ef01d44a42b7d8ce06fba9e2ecf6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-09-07  Chong Yidong  <cyd@stupidchicken.com>
+
+       * emacs-lisp/autoload.el (make-autoload): Handle defclass form.
+
+       * emacs-lisp/eieio.el (eieio-defclass-autoload): Autoload.
+
 2009-09-05  Chong Yidong  <cyd@stupidchicken.com>
 
        * emacs-lisp/autoload.el (generated-autoload-load-name): New var.

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 8b2a8985229b4be1225943a1482712de4075b4f8..9dad31af0e3bef7a1b0e6e4d6d3639ad2e3029bc 100644 (file)
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -135,6 +135,14 @@ or macro definition or a defcustom)."
                  (eq (car-safe (car body)) 'interactive))
              (if macrop (list 'quote 'macro) nil))))
 
+     ;; For defclass forms, use `eieio-defclass-autoload'.
+     ((eq car 'defclass)
+      (let ((name (nth 1 form))
+           (superclasses (nth 2 form))
+           (doc (nth 4 form)))
+       (list 'eieio-defclass-autoload (list 'quote name)
+             (list 'quote superclasses) file doc)))
+
      ;; Convert defcustom to less space-consuming data.
      ((eq car 'defcustom)
       (let ((varname (car-safe (cdr-safe form)))

diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 09a1710dc67e3256dbb25b211f0a9814809a747a..28af9bad4193e6948919e7c2f226aa203450ac35 100644 (file)
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -331,6 +331,7 @@ wish, and reference them using the function `class-option'."
 (defvar eieio-defclass-autoload-map (make-vector 7 nil)
   "Symbol map of superclasses we find in autoloads.")
 
+;;;###autoload
 (defun eieio-defclass-autoload (cname superclasses filename doc)
   "Create autoload symbols for the EIEIO class CNAME.
 SUPERCLASSES are the superclasses that CNAME inherites from.