diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-29 21:34:15 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-29 21:34:15 +0000 |
| commit | b02c53e6efe2557198c5db3466e698beae21026d (patch) | |
| tree | 59d2256a2e9fcecd655f21611253546ee50acc7c | |
| parent | d36b182f570b08cb54ad484741379430fe874a70 (diff) | |
| download | emacs-b02c53e6efe2557198c5db3466e698beae21026d.tar.gz | |
(define-derived-mode): Add a proper edebug declaration.
| -rw-r--r-- | lisp/derived.el | 4 |
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 |