(define-derived-mode): Add a proper edebug declaration.

diff --git a/lisp/derived.el b/lisp/derived.el
index 3e27752ca636cc21707f16c7e567568445718929..8d152f391bc6def25eea97c2f26779e5ea19ffc6 100644 (file)
--- a/lisp/derived.el
+++ b/lisp/derived.el
@@ -1,7 +1,7 @@
 ;;; derived.el --- allow inheritance of major modes
 ;;; (formerly mode-clone.el)
 
-;; Copyright (C) 1993, 1994, 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 1999, 2003 Free Software Foundation, Inc.
 
 ;; Author: David Megginson (dmeggins@aix1.uottawa.ca)
 ;; Maintainer: FSF
@@ -156,6 +156,8 @@ the parent, and then sets the variable `case-fold-search' to nil:
 
 Note that if the documentation string had been left out, it would have
 been generated automatically, with a reference to the keymap."
+  (declare (debug (&define name symbolp sexp [&optional stringp]
+                          [&rest keywordp sexp] def-body)))
 
   (when (and docstring (not (stringp docstring)))
     ;; Some trickiness, since what appears to be the docstring may really be