From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp10.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id yLLvIXAcm2LaRgEAbAwnHQ (envelope-from ) for ; Sat, 04 Jun 2022 10:48:48 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp10.migadu.com with LMTPS id KNcWIXAcm2Ic/AAAG6o9tA (envelope-from ) for ; Sat, 04 Jun 2022 10:48:48 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id A33C935940 for ; Sat, 4 Jun 2022 10:48:45 +0200 (CEST) Received: from localhost ([::1]:51132 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1nxPSd-00067Y-Ps for larch@yhetil.org; Sat, 04 Jun 2022 04:48:43 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:38788) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nxPS8-000678-R5 for emacs-orgmode@gnu.org; Sat, 04 Jun 2022 04:48:13 -0400 Received: from mailtransmit05.runbox.com ([2a0c:5a00:149::26]:40622) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1nxPS6-0005Qp-FF for emacs-orgmode@gnu.org; Sat, 04 Jun 2022 04:48:12 -0400 Received: from mailtransmit02.runbox ([10.9.9.162] helo=aibo.runbox.com) by mailtransmit05.runbox.com with esmtps (TLS1.2) tls TLS_ECDHE_RSA_WITH_AES_128_GCM_SHA256 (Exim 4.93) (envelope-from ) id 1nxPS1-005Mx6-5x for emacs-orgmode@gnu.org; Sat, 04 Jun 2022 10:48:05 +0200 DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; d=zaeph.net; s=selector1; h=Content-Type:MIME-Version:Message-ID:Date:Subject:To:From; bh=3AjVu2lF88Pe62VeBUFTOWq+dWC+WS7gdf6Avy4Ed4k=; b=MV4jPzjxZeQGjeeniBLQ9snIA gwXoQckoFgHPLsSffIq1hpT1YTDVD7AmluyzWgUc1ZiWnwUSU7vco7F2VLSfoSfw8VQnp/gShFPon Ot0eCIwrpnoWr7iK4tyqQ65+PQRRZqocKoyaYKFu/jPBbtkL2w1t1bwBWBdSVsoIBjHuJb8R8M6HI CVJ+EtxC4gaBiX3sMu8eWO7QbycXuMNpYtSiAMcnvVIun4/0NVfZOGTst8DT0kaPCOhfRmJq04Yiw IiG2Uf+mgFiDfpdxZ/y3e5cGuDi5z6owCFX/z0AEx3czRjfkbtWaLW7cuHUcbrRMVT0wUutcsiXDv 6JbzIU+7w==; Received: from [10.9.9.74] (helo=submission03.runbox) by mailtransmit02.runbox with esmtp (Exim 4.86_2) (envelope-from ) id 1nxPS0-00004w-PF for emacs-orgmode@gnu.org; Sat, 04 Jun 2022 10:48:04 +0200 Received: by submission03.runbox with esmtpsa [Authenticated ID (984850)] (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) id 1nxPRu-0006UE-Eb for emacs-orgmode@gnu.org; Sat, 04 Jun 2022 10:47:58 +0200 From: Leo Vivier To: emacs-orgmode@gnu.org Subject: [PATCH] lisp/org-persist.el (org-persist-gc): Fix pcase pattern Date: Sat, 04 Jun 2022 10:47:57 +0200 Message-ID: <87o7z83jcy.fsf@hidden> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Received-SPF: pass client-ip=2a0c:5a00:149::26; envelope-from=zaeph@zaeph.net; helo=mailtransmit05.runbox.com X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_LOW=-0.7, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-orgmode@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+larch=yhetil.org@gnu.org Sender: "Emacs-orgmode" X-Migadu-Flow: FLOW_IN X-Migadu-To: larch@yhetil.org X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1654332525; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=3AjVu2lF88Pe62VeBUFTOWq+dWC+WS7gdf6Avy4Ed4k=; b=S7HbwHzbO2tetg1FofP8eirGK+49EV/FpnMRkPeShLrSJLDwlgQCuVeetRz0GYOanwDCGT nZqBdoWJX8P4VzX1i2G7MCzbdK48rSzpiz95fmDuOHQAKJUGrgFhtqGZ44khLhZsDB8kPH XS2lbVNyanXMok4+RUYKFiZtcZCJMmWQENQQcTkSN/Nnlm6rr81XMhzL3xgrlcXjfh7w3p QbX3AcM/JT2kpnd/t5ExTWLYRIJysAeNuC+Te5Zwjr76t378tOreO+AWhjFbF/g0A6iyP4 /xWU+8g9VxfLB3wfwj2aflZaJN7lb8YxcqElJMmuOtyNAAWeBawN5uCQraQtrQ== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1654332525; a=rsa-sha256; cv=none; b=OoVmrlWQBqBk+ZizZKzuArZKUWJfXtLrAa7L+m+gPfzxQyA3Uf67hAKuKQo/gjxZcdwT5k RO0Hkx7agjZLeG9WJhr+UyJ5PLS5e1vW9zvrFWiWVRcchPe1u4Iiw7+LDOmRX7AGRx9J1R Ds3XbOpWyx262PXGPpACP9pqXFt2OuH8Zepv1wV+EMn1yqSki1M25tQRyKXVtMOkXQs1lQ E5BCMJ4Y69o60ZeJNbP6bO2xZR2pxn25SxV1yOPTx35e1Ck0sgWQO9oEeoBcYcLu34aUZV SsTtycoAoWxC9Y7KgX7ok2EVDuiivWA3p2R2mEu21MqH5Wx90tAyecqX+Me/eA== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=zaeph.net header.s=selector1 header.b=MV4jPzjx; dmarc=none; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: -3.12 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=zaeph.net header.s=selector1 header.b=MV4jPzjx; dmarc=none; spf=pass (aspmx1.migadu.com: domain of "emacs-orgmode-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="emacs-orgmode-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: A33C935940 X-Spam-Score: -3.12 X-Migadu-Scanner: scn1.migadu.com X-TUID: UvNAjbHOzo7s --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hi there, Quick patch to fix a typo in a pcase pattern which quotes a function. It results in `(function numberp foo)' when expanded, which in turns throws `(wrong-number-of-arguments function 2)' when eval=E2=80=99d. Best, --=20 Leo Vivier Freelance Software Developer Website: www.leovivier.com | Blog: www.zaeph.net --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-lisp-org-persist.el-org-persist-gc-Fix-pcase-pattern.patch >From 762d1774fb70313e20951343a7511051a3626cad Mon Sep 17 00:00:00 2001 From: Leo Vivier Date: Sat, 4 Jun 2022 10:28:07 +0200 Subject: [PATCH] lisp/org-persist.el (org-persist-gc): Fix pcase pattern * lisp/org-persist.el (org-persist-gc): Fix pcase pattern Otherwise, `(pred #'numberp)' expands to `(function numberp foo)' where foo is the first arg of pcase. --- lisp/org-persist.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-persist.el b/lisp/org-persist.el index ca6ee4f4d..068f58cec 100644 --- a/lisp/org-persist.el +++ b/lisp/org-persist.el @@ -929,7 +929,7 @@ Also, remove containers associated with non-existing files." ('t t) ('check-existence (file-exists-p file)) - ((pred #'numberp) + ((pred numberp) (<= org-persist-remote-files remote-files-num)) (_ nil))) (setq expired? t))) -- 2.35.1 --=-=-=--