[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-26 dee96f4: * lisp/emacs-lisp/cl-macs.el (cl-letf):
From: |
Gemini Lasswell |
Subject: |
[Emacs-diffs] emacs-26 dee96f4: * lisp/emacs-lisp/cl-macs.el (cl-letf): Fix Edebug spec (bug#24765) |
Date: |
Sat, 16 Sep 2017 10:47:40 -0400 (EDT) |
branch: emacs-26
commit dee96f4a170be134fafd2d11f264952b7e030303
Author: Gemini Lasswell <address@hidden>
Commit: Gemini Lasswell <address@hidden>
* 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 d90e70d..32ba0ac 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -2438,7 +2438,9 @@ As a special case, if `(PLACE)' is used instead of
`(PLACE VALUE)',
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-26 dee96f4: * lisp/emacs-lisp/cl-macs.el (cl-letf): Fix Edebug spec (bug#24765),
Gemini Lasswell <=