From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Gemini Lasswell Newsgroups: gmane.emacs.bugs Subject: bug#24748: 26.0.50; Edebug fails to instrument subr-x-tests.el Date: Wed, 15 Feb 2017 10:56:48 -0800 Message-ID: References: NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: blaine.gmane.org 1487185098 7061 195.159.176.226 (15 Feb 2017 18:58:18 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 15 Feb 2017 18:58:18 +0000 (UTC) To: 24748@debbugs.gnu.org, mvoteiza@udel.ed Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Wed Feb 15 19:58:13 2017 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ce4mH-0001Lt-Rq for geb-bug-gnu-emacs@m.gmane.org; Wed, 15 Feb 2017 19:58:09 +0100 Original-Received: from localhost ([::1]:42505 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ce4mN-00070P-M4 for geb-bug-gnu-emacs@m.gmane.org; Wed, 15 Feb 2017 13:58:15 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:50344) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ce4mF-000709-D5 for bug-gnu-emacs@gnu.org; Wed, 15 Feb 2017 13:58:08 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ce4mA-0001ag-Hb for bug-gnu-emacs@gnu.org; Wed, 15 Feb 2017 13:58:07 -0500 Original-Received: from debbugs.gnu.org ([208.118.235.43]:43138) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ce4mA-0001ac-ED for bug-gnu-emacs@gnu.org; Wed, 15 Feb 2017 13:58:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1ce4mA-0005dt-6x for bug-gnu-emacs@gnu.org; Wed, 15 Feb 2017 13:58:02 -0500 X-Loop: help-debbugs@gnu.org In-Reply-To: Resent-From: Gemini Lasswell Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 15 Feb 2017 18:58:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 24748 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 24748-submit@debbugs.gnu.org id=B24748.148718502521629 (code B ref 24748); Wed, 15 Feb 2017 18:58:02 +0000 Original-Received: (at 24748) by debbugs.gnu.org; 15 Feb 2017 18:57:05 +0000 Original-Received: from localhost ([127.0.0.1]:41337 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ce4lE-0005cn-P1 for submit@debbugs.gnu.org; Wed, 15 Feb 2017 13:57:04 -0500 Original-Received: from aibo.runbox.com ([91.220.196.211]:60006) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1ce4lD-0005cS-0H for 24748@debbugs.gnu.org; Wed, 15 Feb 2017 13:57:03 -0500 Original-Received: from [10.9.9.212] (helo=mailfront12.runbox.com) by mailtransmit02.runbox with esmtp (Exim 4.86_2) (envelope-from ) id 1ce4lB-0001nW-4L; Wed, 15 Feb 2017 19:57:01 +0100 Original-Received: from [208.181.90.9] (helo=rainbow.local) by mailfront12.runbox.com with esmtpsa (uid:179284 ) (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) id 1ce4l7-0005rx-Qm; Wed, 15 Feb 2017 19:56:58 +0100 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.2.x-3.x [generic] X-Received-From: 208.118.235.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.org gmane.emacs.bugs:129391 Archived-At: --=-=-= Content-Type: text/plain Gemini Lasswell writes: > Edebug is complaining when it gets to this: > > (if-let (z (a 1) (b 2) (c 3)) > (list a b c) > "no") > > because it can't match it with if-let's Edebug specification. Now that Mark has fixed if-let's docstring to clarify the description of its bindings list, here's a matching Edebug spec which accepts the form above: --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=0001-lisp-emacs-lisp-subr-x.el-if-let-Fix-Edebug-spec-Bug.patch >From 192a5649fef5a686676b98340818b3f6ab4e5a47 Mon Sep 17 00:00:00 2001 From: Gemini Lasswell Date: Sat, 4 Feb 2017 16:16:11 -0800 Subject: [PATCH] * lisp/emacs-lisp/subr-x.el (if-let*): Fix Edebug spec (Bug#24748) --- lisp/emacs-lisp/subr-x.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index f7a8469..1d729f9 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -126,7 +126,8 @@ if-let* VARLIST can just be a plain tuple. \n(fn VARLIST THEN ELSE...)" (declare (indent 2) - (debug ([&or (&rest (symbolp form)) (symbolp form)] form body))) + (debug ([&or (&rest [&or symbolp (symbolp form)]) (symbolp form)] + form body))) (when (and (<= (length bindings) 2) (not (listp (car bindings)))) ;; Adjust the single binding case -- 2.10.1 --=-=-=--