[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 85fb942: Fix bug #40766, an error in edebug spec handling
From: |
Alan Mackenzie |
Subject: |
master 85fb942: Fix bug #40766, an error in edebug spec handling |
Date: |
Fri, 24 Apr 2020 11:53:24 -0400 (EDT) |
branch: master
commit 85fb94273375fe793ced4404ade6392e38b4c381
Author: Alan Mackenzie <address@hidden>
Commit: Alan Mackenzie <address@hidden>
Fix bug #40766, an error in edebug spec handling
Also remove some debris.
* lisp/emacs-lisp/edebug.el (edebug-spec): Move the entry for
edebug-spec-list
to before that for vector in the &or form. This assures that in a dotted
list
of vectors, that list gets handled correctly by edebug-spec-list rather than
wrongly by (vector ...).
(def-edebug-spec &key): Remove, since it is ill formed and superfluous.
---
lisp/emacs-lisp/edebug.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index bb7817f..a376067 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -1833,9 +1833,6 @@ contains a circular object."
;; This means nothing matched, so it is OK.
nil) ;; So, return nothing
-
-(def-edebug-spec &key edebug-match-&key)
-
(defun edebug-match-&key (cursor specs)
;; Following specs must look like (<name> <spec>) ...
;; where <name> is the name of a keyword, and spec is its spec.
@@ -2115,10 +2112,10 @@ into `edebug--cl-macrolet-defs' which is checked in
`edebug-list-form-args'."
(def-edebug-spec edebug-spec
(&or
+ edebug-spec-list
(vector &rest edebug-spec) ; matches a vector
("vector" &rest edebug-spec) ; matches a vector spec
("quote" symbolp)
- edebug-spec-list
stringp
[edebug-lambda-list-keywordp &rest edebug-spec]
[keywordp gate edebug-spec]
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 85fb942: Fix bug #40766, an error in edebug spec handling,
Alan Mackenzie <=