[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r108244: * lisp/emacs-lisp/pcase.el (
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r108244: * lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Fix edebug spec. |
Date: |
Tue, 15 May 2012 14:45:27 -0400 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 108244
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Tue 2012-05-15 14:45:27 -0400
message:
* lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Fix edebug spec.
modified:
lisp/ChangeLog
lisp/emacs-lisp/pcase.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-05-15 18:07:36 +0000
+++ b/lisp/ChangeLog 2012-05-15 18:45:27 +0000
@@ -1,5 +1,7 @@
2012-05-15 Stefan Monnier <address@hidden>
+ * emacs-lisp/pcase.el (pcase-let*, pcase-let): Fix edebug spec.
+
* minibuffer.el (completion--sifn-requote): Handle sifn's truncation
behavior.
(completion--string-equal-p): New function.
=== modified file 'lisp/emacs-lisp/pcase.el'
--- a/lisp/emacs-lisp/pcase.el 2012-05-05 02:05:49 +0000
+++ b/lisp/emacs-lisp/pcase.el 2012-05-15 18:45:27 +0000
@@ -113,7 +113,8 @@
"Like `let*' but where you can use `pcase' patterns for bindings.
BODY should be an expression, and BINDINGS should be a list of bindings
of the form (UPAT EXP)."
- (declare (indent 1) (debug let))
+ (declare (indent 1)
+ (debug ((&rest &or (sexp &optional form) symbolp) body)))
(cond
((null bindings) (if (> (length body) 1) `(progn ,@body) (car body)))
((pcase--trivial-upat-p (caar bindings))
@@ -132,7 +133,7 @@
"Like `let' but where you can use `pcase' patterns for bindings.
BODY should be a list of expressions, and BINDINGS should be a list of bindings
of the form (UPAT EXP)."
- (declare (indent 1) (debug let))
+ (declare (indent 1) (debug pcase-let*))
(if (null (cdr bindings))
`(pcase-let* ,bindings ,@body)
(let ((matches '()))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r108244: * lisp/emacs-lisp/pcase.el (pcase-let*, pcase-let): Fix edebug spec.,
Stefan Monnier <=