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

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/derived.el b/lisp/derived.el
index 3e27752ca63..8d152f391bc 100644
--- 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