(define-minor-mode): Improve the spec and remove the rogue second spec.

This commit is contained in:
Stefan Monnier 2000-12-23 20:53:48 +00:00
parent 6a84719a02
commit 9eab649a37

View file

@ -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