[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#34481: 27.0.50; cl-flet, cl-labels and lambda expressions
From: |
Michael Heerdegen |
Subject: |
bug#34481: 27.0.50; cl-flet, cl-labels and lambda expressions |
Date: |
Tue, 19 Feb 2019 01:22:25 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) |
Michael Heerdegen <michael_heerdegen@web.de> writes:
> Hi,
>
> two related little issues:
>
> 1. `cl-flet's edebug spec only works with one allowed syntax, when all
> bindings look like (FUNC ARGLIST BODY...). The second possible syntax
> (FUNC EXP) makes edebug barf, no edebugging possible :-(
Who knows if this is correct?
From 3859414d19bc9de1593af7276decafe9b34ee628 Mon Sep 17 00:00:00 2001
From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Tue, 19 Feb 2019 01:12:07 +0100
Subject: [PATCH] Extend debug spec of cl-flet
* 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 5faa055f99..9f79b1a7cf 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2044,7 +2044,9 @@ cl-flet
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 form) (cl-defun)])
+ cl-declarations body)))
(let ((binds ()) (newenv macroexpand-all-environment))
(dolist (binding bindings)
(let ((var (make-symbol (format "--cl-%s--" (car binding))))
--
2.20.1
I wasn't sure if I need to use "def-form" instead of "form" (I guess
not) or if some "nil" or "gate" magic is needed in addition.
And to which branch should I install it if it happens to be correct?
Thanks,
Michael.