From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp1 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms11 with LMTPS id 0I8SFQ+vK1+4MwAA0tVLHw (envelope-from ) for ; Thu, 06 Aug 2020 07:19:43 +0000 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp1 with LMTPS id uA3tEA+vK1+WXAAAbx9fmQ (envelope-from ) for ; Thu, 06 Aug 2020 07:19:43 +0000 Received: from mail.notmuchmail.org (nmbug.tethera.net [144.217.243.247]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) server-signature RSA-PSS (2048 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id C0E7C940539 for ; Thu, 6 Aug 2020 07:19:40 +0000 (UTC) Received: from [144.217.243.247] (localhost [127.0.0.1]) by mail.notmuchmail.org (Postfix) with ESMTP id 7610029A8D; Thu, 6 Aug 2020 03:19:20 -0400 (EDT) Received: from mail.hostpark.net (mail.hostpark.net [212.243.197.30]) by mail.notmuchmail.org (Postfix) with ESMTPS id 5F26D1FA17 for ; Thu, 6 Aug 2020 03:19:14 -0400 (EDT) Received: from localhost (localhost [127.0.0.1]) by mail.hostpark.net (Postfix) with ESMTP id D1D56B7D54 for ; Thu, 6 Aug 2020 09:19:11 +0200 (CEST) X-Virus-Scanned: by Hostpark/NetZone Mailprotection at hostpark.net Received: from mail.hostpark.net ([127.0.0.1]) by localhost (mail1.hostpark.net [127.0.0.1]) (amavisd-new, port 10124) with ESMTP id KMIHdwwaQaDL for ; Thu, 6 Aug 2020 09:19:11 +0200 (CEST) Received: from customer (localhost [127.0.0.1]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) by mail.hostpark.net (Postfix) with ESMTPSA id 9793EB7D4E for ; Thu, 6 Aug 2020 09:19:11 +0200 (CEST) From: Jonas Bernoulli To: notmuch@notmuchmail.org Subject: [PATCH v2 06/23] emacs: Use cl-incf where appropriate Date: Thu, 6 Aug 2020 09:18:53 +0200 Message-Id: <20200806071910.10369-7-jonas@bernoul.li> X-Mailer: git-send-email 2.28.0 In-Reply-To: <20200806071910.10369-1-jonas@bernoul.li> References: <20200726165818.400-1-jonas@bernoul.li> <20200806071910.10369-1-jonas@bernoul.li> MIME-Version: 1.0 Message-ID-Hash: 4UGTNB4LTY4SI226KQ7AHB4Y7FC7XDLR X-Message-ID-Hash: 4UGTNB4LTY4SI226KQ7AHB4Y7FC7XDLR X-MailFrom: jonas@bernoul.li X-Mailman-Rule-Misses: dmarc-mitigation; no-senders; approved; emergency; loop; banned-address; member-moderation; header-match-notmuch.notmuchmail.org-0; nonmember-moderation; administrivia; implicit-dest; max-recipients; max-size; news-moderation; no-subject; suspicious-header X-Mailman-Version: 3.2.1 Precedence: list List-Id: "Use and development of the notmuch mail system." List-Help: List-Post: List-Subscribe: List-Unsubscribe: Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: 7bit X-Scanner: scn0 Authentication-Results: aspmx1.migadu.com; dkim=none; dmarc=none; spf=pass (aspmx1.migadu.com: domain of notmuch-bounces@notmuchmail.org designates 144.217.243.247 as permitted sender) smtp.mailfrom=notmuch-bounces@notmuchmail.org X-Spam-Score: 0.03 X-TUID: 7wfiG2+DPpSr It's shorter. That's it pretty much. --- emacs/notmuch-hello.el | 2 +- emacs/notmuch-lib.el | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/emacs/notmuch-hello.el b/emacs/notmuch-hello.el index 89e03c36..1c084bf7 100644 --- a/emacs/notmuch-hello.el +++ b/emacs/notmuch-hello.el @@ -609,7 +609,7 @@ (defun notmuch-hello-insert-buttons (searches) name) (setq column-indent (1+ (max 0 (- column-width (length name))))))) - (setq count (1+ count)) + (cl-incf count) (when (eq (% count tags-per-line) 0) (setq column-indent 0) (widget-insert "\n"))) diff --git a/emacs/notmuch-lib.el b/emacs/notmuch-lib.el index 886da99f..5d0c373a 100644 --- a/emacs/notmuch-lib.el +++ b/emacs/notmuch-lib.el @@ -417,7 +417,7 @@ (defun notmuch-subkeymap-help () (i 0)) (while (< i (length prefix)) (aset prefix i (aref key i)) - (setq i (1+ i))) + (cl-incf i)) (let* ((subkeymap (key-binding prefix)) (ua-keys (where-is-internal 'universal-argument nil t)) (prefix-string (notmuch-prefix-key-description prefix)) -- 2.28.0