diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-12-23 20:53:48 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-12-23 20:53:48 +0000 |
| commit | 9eab649a37d28f85edc54da7738f17084716c375 (patch) | |
| tree | e993d7145f7f5bfaf9eccc3e40e8369759f3284c /lisp/emacs-lisp | |
| parent | 6a84719a027430a82ab64f2b39757982693c1f3f (diff) | |
| download | emacs-9eab649a37d28f85edc54da7738f17084716c375.tar.gz emacs-9eab649a37d28f85edc54da7738f17084716c375.tar.bz2 emacs-9eab649a37d28f85edc54da7738f17084716c375.zip | |
(define-minor-mode): Improve the spec and remove the rogue second spec.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 9 |
1 files 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 |