mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/byte-run.el (compiler-macro): Make it Edebuggable

Browse source 
* lisp/emacs-lisp/gv.el (gc-expander, gv-setter): Reuse the spec of
`compiler-macro`.
This commit is contained in:
Stefan Monnier 2021-02-14 22:56:08 -05:00
parent 2594162b23
commit 623e534e49
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/gv.el
View file

@ -188,7 +188,9 @@ arguments as NAME. DO is a function as defined in `gv-get'."
defun-declarations-alist))
;;;###autoload
(let ((spec '(&or symbolp ("lambda" &define lambda-list def-body))))
(let ((spec (get 'compiler-macro 'edebug-declaration-spec)))
;; It so happens that it's the same spec for gv-* as for compiler-macros.
;; '(&or symbolp ("lambda" &define lambda-list lambda-doc def-body))
(put 'gv-expander 'edebug-declaration-spec spec)
(put 'gv-setter 'edebug-declaration-spec spec))