Mercurial > emacs
changeset 28567:3ed20cb4c9b3
(edebug-keywordp): Remove. Change callers
to use keywordp.
(edebug-spec): Enable keywordp.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 13 Apr 2000 19:04:33 +0000 |
| parents | 147fceec5b4f |
| children | cfff869d8a3d |
| files | lisp/emacs-lisp/edebug.el |
| diffstat | 1 files changed, 10 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/edebug.el Thu Apr 13 19:04:00 2000 +0000 +++ b/lisp/emacs-lisp/edebug.el Thu Apr 13 19:04:33 2000 +0000 @@ -306,13 +306,6 @@ (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 @@ (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 @@ 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 @@ [&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