comparison lisp/emacs-lisp/edebug.el @ 34854:bf1bc2158b55

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

34853:807a610a7a98

	   [&optional ("interactive" interactive)]
	   def-body))
(def-edebug-spec defmacro
  (&define name lambda-list def-body))
(def-edebug-spec define-derived-mode
  (&define name name stringp [&optional stringp] def-body))
(def-edebug-spec define-minor-mode
  (&define name stringp def-body))
;; This plain doesn't work ;-(   -sm
;; (def-edebug-spec define-skeleton
;;   (&define name stringp def-body))

(def-edebug-spec arglist lambda-list)  ;; deprecated - use lambda-list.

(def-edebug-spec easy-menu-define (symbolp body))

(def-edebug-spec with-custom-print body)

(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

34854:bf1bc2158b55

	   [&optional ("interactive" interactive)]
	   def-body))
(def-edebug-spec defmacro
  (&define name lambda-list def-body))
(def-edebug-spec define-derived-mode
  (&define name symbolp stringp [&optional stringp] def-body))
(def-edebug-spec define-minor-mode
  (&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))

(def-edebug-spec arglist lambda-list)  ;; deprecated - use lambda-list.

(def-edebug-spec easy-menu-define (symbolp body))

(def-edebug-spec with-custom-print body)

(def-edebug-spec sregexq (&rest sexp))

;;; The debugger itself

(defvar edebug-active nil)  ;; Non-nil when edebug is active