[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 623e534: * lisp/emacs-lisp/byte-run.el (compiler-macro): Make it
From: |
Stefan Monnier |
Subject: |
master 623e534: * lisp/emacs-lisp/byte-run.el (compiler-macro): Make it Edebuggable |
Date: |
Sun, 14 Feb 2021 23:03:08 -0500 (EST) |
branch: master
commit 623e534e49ad0a360d1291b917ce97515742a3e9
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/emacs-lisp/byte-run.el (compiler-macro): Make it Edebuggable
* lisp/emacs-lisp/gv.el (gc-expander, gv-setter): Reuse the spec of
`compiler-macro`.
---
lisp/emacs-lisp/byte-run.el | 3 +++
lisp/emacs-lisp/gv.el | 4 +++-
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 48a7fe8..8a22388 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -113,6 +113,9 @@ The return value of this function is not used."
(list 'function-put (list 'quote f)
''side-effect-free (list 'quote val))))
+(put 'compiler-macro 'edebug-declaration-spec
+ '(&or symbolp ("lambda" &define lambda-list lambda-doc def-body)))
+
(defalias 'byte-run--set-compiler-macro
#'(lambda (f args compiler-function)
(if (not (eq (car-safe compiler-function) 'lambda))
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el
index 3200b1c..cbbed06 100644
--- a/lisp/emacs-lisp/gv.el
+++ b/lisp/emacs-lisp/gv.el
@@ -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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 623e534: * lisp/emacs-lisp/byte-run.el (compiler-macro): Make it Edebuggable,
Stefan Monnier <=