procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(edebug-keywordp): Remove. Change callers

Browse source 
to use keywordp.
(edebug-spec): Enable keywordp.
This commit is contained in:
Dave Love 2000-04-13 19:04:33 +00:00
parent 88d9af06cb
commit be0dd6570e
1 changed files with 10 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/emacs-lisp/edebug.el
View file

@ -306,13 +306,6 @@ except when debugging needs suggest otherwise."
(setq newsymbol (make-symbol newname))))
newsymbol))
;; Only used by CL-like code.
(defun edebug-keywordp (object)
"Return t if OBJECT is a keyword.
A keyword is a symbol that starts with `:'."
(and (symbolp object)
(= ?: (aref (symbol-name object) 0))))
(defun edebug-lambda-list-keywordp (object)
"Return t if OBJECT is a lambda list keyword.
A lambda list keyword is a symbol that starts with `&'."
@ -1450,7 +1443,7 @@ expressions; a `progn' form will be returned enclosing these forms."
(cond
;; Check for constant symbols that don't get wrapped.
((or (memq form '(t nil))
(and (fboundp 'edebug-keywordp) (edebug-keywordp form)))
(keywordp form))
form)
(t ;; just a variable
@ -1993,7 +1986,7 @@ expressions; a `progn' form will be returned enclosing these forms."
edebug-spec-list
stringp
[edebug-lambda-list-keywordp &rest edebug-spec]
;; [edebug-keywordp gate edebug-spec] ;; need edebug-keywordp for this.
[keywordp gate edebug-spec]
edebug-spec-p ;; Including all the special ones e.g. form.
symbolp;; a predicate
))
@ -2151,6 +2144,14 @@ expressions; a `progn' form will be returned enclosing these forms."
[&optional ("interactive" interactive)]
def-body))
(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