2001-07-17 Katsumi Yamaoka <yamaoka@jpl.org>

	* dgnushack.el (dgnushack-make-auto-load): Advise `make-autoload'
	to handle `define-derived-mode'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3155f61..01d2ace 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-17  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * dgnushack.el (dgnushack-make-auto-load): Advise `make-autoload'
+       to handle `define-derived-mode'.
+       
 2001-07-16 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
        From:  Stefan Monnier  <monnier@cs.yale.edu>
 

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 29d822a..ae16322 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -266,6 +266,20 @@ Modify to suit your needs."))
 
 (defun dgnushack-make-auto-load ()
   (require 'autoload)
+  (unless (make-autoload '(define-derived-mode child parent name
+                           "docstring" body)
+                        "file")
+    (defadvice make-autoload (around handle-define-derived-mode activate)
+      "Handle `define-derived-mode'."
+      (if (eq (car-safe (ad-get-arg 0)) 'define-derived-mode)
+         (setq ad-return-value
+               (list 'autoload
+                     (list 'quote (nth 1 (ad-get-arg 0)))
+                     (ad-get-arg 1)
+                     (nth 4 (ad-get-arg 0))
+                     t nil))
+       ad-do-it))
+    (put 'define-derived-mode 'doc-string-elt 3))
   (let ((generated-autoload-file dgnushack-gnus-load-file)
        (make-backup-files nil)
        (autoload-package-name "gnus"))