From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Tino Calancha Newsgroups: gmane.emacs.bugs Subject: bug#31697: 27.0.50; Add new macro dolist-with-progress-reporter Date: Sun, 17 Jun 2018 18:38:14 +0900 Message-ID: <871sd5bvnd.fsf@calancha-pc.dy.bbexcite.jp> References: <8736y457ty.fsf@gmail.com> <87vab03r8d.fsf@gmail.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: blaine.gmane.org 1529228229 1774 195.159.176.226 (17 Jun 2018 09:37:09 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Sun, 17 Jun 2018 09:37:09 +0000 (UTC) User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.0.50 (gnu/linux) To: 31697-done@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Sun Jun 17 11:37:05 2018 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 1fUU7N-0000KY-16 for geb-bug-gnu-emacs@m.gmane.org; Sun, 17 Jun 2018 11:37:05 +0200 Original-Received: from localhost ([::1]:54464 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fUU9T-0008Rt-UP for geb-bug-gnu-emacs@m.gmane.org; Sun, 17 Jun 2018 05:39:15 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:55433) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fUU9L-0008R1-ER for bug-gnu-emacs@gnu.org; Sun, 17 Jun 2018 05:39:08 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fUU9G-0000EY-Gh for bug-gnu-emacs@gnu.org; Sun, 17 Jun 2018 05:39:07 -0400 Original-Received: from debbugs.gnu.org ([208.118.235.43]:44678) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1fUU9G-0000EQ-Cp for bug-gnu-emacs@gnu.org; Sun, 17 Jun 2018 05:39:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1fUU9G-000879-6S for bug-gnu-emacs@gnu.org; Sun, 17 Jun 2018 05:39:02 -0400 Resent-From: Tino Calancha Original-Sender: "Debbugs-submit" Resent-To: bug-gnu-emacs@gnu.org Resent-Date: Sun, 17 Jun 2018 09:39:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: cc-closed 31697 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Mail-Followup-To: 31697@debbugs.gnu.org, tino.calancha@gmail.com, tino.calancha@gmail.com Original-Received: via spool by 31697-done@debbugs.gnu.org id=D31697.152922830431139 (code D ref 31697); Sun, 17 Jun 2018 09:39:01 +0000 Original-Received: (at 31697-done) by debbugs.gnu.org; 17 Jun 2018 09:38:24 +0000 Original-Received: from localhost ([127.0.0.1]:52573 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fUU8e-00086A-6c for submit@debbugs.gnu.org; Sun, 17 Jun 2018 05:38:24 -0400 Original-Received: from mail-pf0-f176.google.com ([209.85.192.176]:43145) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1fUU8d-00085y-Aw for 31697-done@debbugs.gnu.org; Sun, 17 Jun 2018 05:38:23 -0400 Original-Received: by mail-pf0-f176.google.com with SMTP id y8-v6so6785071pfm.10 for <31697-done@debbugs.gnu.org>; Sun, 17 Jun 2018 02:38:23 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:subject:references:date:in-reply-to:message-id:user-agent :mime-version; bh=TtTCo+kuf6N7TpswRVMn2OZbrvwzcY2TyCsC5PEKlFU=; b=MOkRI/XEtLWrEX5Wj6/PuAVIvYp3/JC0r3O+ca9ebAffjVGf6OsK/31nloHuajW0iZ sJn9Ew90q9w2GpqqKqZOnlm+r9fbourwPiDb7yJ02y4OCla/2ghD0WZJy8QRl0gz07Dm XvbE1keGRVbxSPmQs3ob22eEg0HV/mJcsfqxkO9e4C1PSo+6U5SsFFiHpf2bC5DEypEs 0/fdaT4W32BUywMWiH0tuYJ4KQRFA+xxbs0nc55WXw3D1F4fdV+boPdnRraFPKZEn8rk KecjcaOCy/3nicaXYhh9TwrcwYtrwRLWcG22Awk99m2JNk/FwrX55X5BNHjP7FsBV9FK OLkA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:subject:references:date:in-reply-to :message-id:user-agent:mime-version; bh=TtTCo+kuf6N7TpswRVMn2OZbrvwzcY2TyCsC5PEKlFU=; b=dKBjPtOKFxWn57BRWTyUVFqJWPtjhVC2ih31TS6QE3igUPy5AZWiP+Z3XQQ2/ZTb+B C6IG0id2XBCWuguh97ic72tbCNe07T/yUDg7tWOIKimIVJGiRvukXa6ooJNOJ2BMnyMt qBMFAUJ7Qa8sN+NN98+Fjgv0i+yFJ2+Vnp9XrjKqjp2Am+fIcxoAB1SLdFYM4Ggxapmq 33GUnqI7jbhoJXzrM3B0a5iFb3sukRomIbsXKycLCyRkEfF5Yp+9o9G57ia/6BJh5gjO Zkx6mq8/tsuG9X0W7Zybm1P5HkfArdDxYW5+XZ5iO2zba+YgfDmN+q5kowsHEupxmvOL pnmg== X-Gm-Message-State: APt69E28L3HchpSMt0Ndp2fTKLiUNY1l3seSOjxYRuk6EF0G5YqJiDpq t5Zq0i8o7ntzLHSZeU0RMl+OrQ== X-Google-Smtp-Source: ADUXVKJWz1jq6sBgeMtT5AhJBOKrRrg/e2/oWY/SqaTukr1S+T6ZJLsz76RU5DW62bBNzKIr4oaS6w== X-Received: by 2002:a65:64d3:: with SMTP id t19-v6mr7449279pgv.148.1529228297674; Sun, 17 Jun 2018 02:38:17 -0700 (PDT) Original-Received: from calancha-pc.dy.bbexcite.jp ([240f:6e:ee9a:1:adc4:139f:709c:10b]) by smtp.gmail.com with ESMTPSA id q19-v6sm17801111pff.9.2018.06.17.02.38.16 for <31697-done@debbugs.gnu.org> (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Sun, 17 Jun 2018 02:38:17 -0700 (PDT) In-Reply-To: <87vab03r8d.fsf@gmail.com> (Tino Calancha's message of "Sun, 03 Jun 2018 23:00:02 +0900") 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:147569 Archived-At: Tino Calancha writes: > Tino Calancha writes: > >> + (declare (indent 2) (debug ((symbolp form &optional form) form body))) >> + (let ((prep (make-symbol "--dolist-progress-reporter--")) >> + (count (make-symbol "--dolist-count--"))) >> + `(let ((,prep ,reporter-or-message) >> + (,count 0)) >> + (when (stringp ,prep) >> + (setq ,prep (make-progress-reporter ,prep 0 (1- (length ,(cadr spec)))))) >> + (dolist ,spec >> + ,@body >> + (progress-reporter-update ,prep (setq ,count (1+ ,count)))) >> + (progress-reporter-done ,prep) >> + (or ,@(cdr (cdr spec)) nil)))) > As pointed out by Noam in Bug#31696, I am also evaluating twice here the > form at (nth 1 SPEC). I must add another variable. > Updated patch. Implemented into master branch as commit 'Add new macro dolist-with-progress-reporter' (edb1f85a27817a3fac38bb85752671414819203b)