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

Fix Edebug specs for map-let and with-maps-do

Browse source 
* lisp/emacs-lisp/map.el (map-let): Fix Edebug spec (bug#24777).
* test/lisp/emacs-lisp/map-tests.el (with-maps-do): Fix Edebug spec.
This commit is contained in:
Gemini Lasswell 2017-10-16 11:40:38 -07:00
parent 46f2ee0d4c
commit 928a106939
2 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/map.el
View file

@ -73,7 +73,8 @@ KEYS can also be a list of (KEY VARNAME) pairs, in which case
KEY is an unquoted form. KEY is an unquoted form.
MAP can be a list, hash-table or array." MAP can be a list, hash-table or array."
(declare (indent 2) (debug t)) (declare (indent 2)
(debug ((&rest &or symbolp ([form symbolp])) form body)))
`(pcase-let ((,(map--make-pcase-patterns keys) ,map)) `(pcase-let ((,(map--make-pcase-patterns keys) ,map))
,@body)) ,@body))

2
test/lisp/emacs-lisp/map-tests.el
View file

@ -36,7 +36,7 @@ Each map is built from the following alist data:
Evaluate BODY for each created map. Evaluate BODY for each created map.
\(fn (var map) body)" \(fn (var map) body)"
(declare (indent 1) (debug t)) (declare (indent 1) (debug (symbolp body)))
(let ((alist (make-symbol "alist")) (let ((alist (make-symbol "alist"))
(vec (make-symbol "vec")) (vec (make-symbol "vec"))
(ht (make-symbol "ht"))) (ht (make-symbol "ht")))