[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#24765: Patch for bug#24765: 26.0.50; Incorrect Edebug spec for cl-le
From: |
Gemini Lasswell |
Subject: |
bug#24765: Patch for bug#24765: 26.0.50; Incorrect Edebug spec for cl-letf, cl-letf* |
Date: |
Sat, 09 Sep 2017 12:19:04 -0700 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.1 (gnu/linux) |
Here is the patch for this bug again, against the current master. Does anyone
have
any feedback? If not, I will push this in a few days.
>From cb71084395df6981901cf33ba2753ee9c7a4caf0 Mon Sep 17 00:00:00 2001
From: Gemini Lasswell <gazally@runbox.com>
Date: Tue, 25 Apr 2017 07:42:01 -0700
Subject: [PATCH] * lisp/emacs-lisp/cl-macs.el (cl-letf): Fix Edebug spec
(bug#24765)
---
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 20a956b474..e2d35224f0 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2437,7 +2437,9 @@ cl-letf
the PLACE is not modified before executing BODY.
\(fn ((PLACE VALUE) ...) BODY...)"
- (declare (indent 1) (debug ((&rest (gate gv-place &optional form)) body)))
+ (declare (indent 1) (debug ((&rest [&or (symbolp form)
+ (gate gv-place &optional form)])
+ body)))
(if (and (not (cdr bindings)) (cdar bindings) (symbolp (caar bindings)))
`(let ,bindings ,@body)
(cl--letf bindings () () body)))
--
2.14.1
- bug#24765: Patch for bug#24765: 26.0.50; Incorrect Edebug spec for cl-letf, cl-letf*,
Gemini Lasswell <=