From 9eab649a37d28f85edc54da7738f17084716c375 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 23 Dec 2000 20:53:48 +0000 Subject: [PATCH] (define-minor-mode): Improve the spec and remove the rogue second spec. --- lisp/emacs-lisp/edebug.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 65f8cfaa92f..60bfa9952d6 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -1988,9 +1988,12 @@ expressions; a `progn' form will be returned enclosing these forms." (def-edebug-spec defmacro (&define name lambda-list def-body)) (def-edebug-spec define-derived-mode - (&define name name stringp [&optional stringp] def-body)) + (&define name symbolp stringp [&optional stringp] def-body)) (def-edebug-spec define-minor-mode - (&define name stringp def-body)) + (&define name stringp + [&optional sexp sexp &or consp symbolp] + [&rest [keywordp sexp]] + def-body)) ;; This plain doesn't work ;-( -sm ;; (def-edebug-spec define-skeleton ;; (&define name stringp def-body)) @@ -2136,8 +2139,6 @@ expressions; a `progn' form will be returned enclosing these forms." (def-edebug-spec sregexq (&rest sexp)) -(def-edebug-spec define-minor-mode (symbolp stringp body)) - ;;; The debugger itself (defvar edebug-active nil) ;; Non-nil when edebug is active -- 2.39.2