Mercurial > emacs

changeset 34854:bf1bc2158b55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-minor-mode): Improve the spec and remove the rogue second spec.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sat, 23 Dec 2000 20:53:48 +0000
parents 807a610a7a98
children dbcb6bfb3ddb
files lisp/emacs-lisp/edebug.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/edebug.el	Sat Dec 23 20:53:24 2000 +0000
+++ b/lisp/emacs-lisp/edebug.el	Sat Dec 23 20:53:48 2000 +0000
@@ -1988,9 +1988,12 @@
 (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 @@
 
 (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