Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
be0dd657
Commit
be0dd657
authored
Apr 13, 2000
by
Dave Love
Browse files
(edebug-keywordp): Remove. Change callers
to use keywordp. (edebug-spec): Enable keywordp.
parent
88d9af06
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
9 deletions
+10
-9
lisp/emacs-lisp/edebug.el
lisp/emacs-lisp/edebug.el
+10
-9
No files found.
lisp/emacs-lisp/edebug.el
View file @
be0dd657
...
...
@@ -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
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment