[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2d13a3f: Extend debug spec of cl-flet (Bug#34481)
From: |
Michael Heerdegen |
Subject: |
[Emacs-diffs] master 2d13a3f: Extend debug spec of cl-flet (Bug#34481) |
Date: |
Thu, 17 Oct 2019 14:18:37 -0400 (EDT) |
branch: master
commit 2d13a3f68d4724af52e47675bedf60709c7b5171
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>
Extend debug spec of cl-flet (Bug#34481)
* lisp/emacs-lisp/cl-macs.el (cl-flet): Extend debug spec to cover
definitions of the form (FUNC EXP).
---
lisp/emacs-lisp/cl-macs.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 9215485..80e2188 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2047,7 +2047,9 @@ recursive function definitions. Use `cl-labels' for
that. See
info node `(cl) Function Bindings' for details.
\(fn ((FUNC ARGLIST BODY...) ...) FORM...)"
- (declare (indent 1) (debug ((&rest (cl-defun)) cl-declarations body)))
+ (declare (indent 1)
+ (debug ((&rest [&or (&define name function-form) (cl-defun)])
+ cl-declarations body)))
(let ((binds ()) (newenv macroexpand-all-environment))
(dolist (binding bindings)
(let ((var (make-symbol (format "--cl-%s--" (car binding))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2d13a3f: Extend debug spec of cl-flet (Bug#34481),
Michael Heerdegen <=