# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1094641583 0
# Node ID fd1be95301bfda06c0334eb1048e0c1305dab8d6
# Parent  1075a63c24260fee96cdc1c18f7da577e8201114
(make-autoload): Handle `define-compilation-mode'.

diff -r 1075a63c2426 -r fd1be95301bf lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Wed Sep 08 11:00:30 2004 +0000
+++ b/lisp/emacs-lisp/autoload.el	Wed Sep 08 11:06:23 2004 +0000
@@ -86,6 +86,7 @@
 
      ;; For special function-like operators, use the `autoload' function.
      ((memq car '(defun define-skeleton defmacro define-derived-mode
+                   define-compilation-mode
 		   define-generic-mode easy-mmode-define-minor-mode
 		   easy-mmode-define-global-mode
 		   define-minor-mode defun* defmacro*))
@@ -94,7 +95,8 @@
 	     (args (case car
 		    ((defun defmacro defun* defmacro*) (nth 2 form))
 		    ((define-skeleton) '(&optional str arg))
-		    ((define-generic-mode define-derived-mode) nil)
+		    ((define-generic-mode define-derived-mode
+                       define-compilation-mode) nil)
 		    (t)))
 	     (body (nthcdr (get car 'doc-string-elt) form))
 	     (doc (if (stringp (car body)) (pop body))))