From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Robert Irelan Newsgroups: gmane.emacs.bugs Subject: bug#51140: 28.0.50; cl-letf appears not to work with native-comp (at least for process-exit-status and other builtins) Date: Tue, 12 Oct 2021 22:13:12 -0700 Message-ID: References: <87a6jf3rft.fsf@web.de> <877dejgdmu.fsf@web.de> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary="0000000000006d3f7905ce3506dd" Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="32762"; mail-complaints-to="usenet@ciao.gmane.io" Cc: Michael Heerdegen , 51140@debbugs.gnu.org To: Stefan Kangas Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane-mx.org@gnu.org Wed Oct 13 07:14:25 2021 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1maWav-0008PR-8E for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 13 Oct 2021 07:14:25 +0200 Original-Received: from localhost ([::1]:42322 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1maWas-00033b-FG for geb-bug-gnu-emacs@m.gmane-mx.org; Wed, 13 Oct 2021 01:14:22 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]:50228) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1maWaZ-00033Q-15 for bug-gnu-emacs@gnu.org; Wed, 13 Oct 2021 01:14:03 -0400 Original-Received: from debbugs.gnu.org ([209.51.188.43]:45808) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1maWaY-0002XF-M4 for bug-gnu-emacs@gnu.org; Wed, 13 Oct 2021 01:14:02 -0400 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1maWaY-0004CE-Fy for bug-gnu-emacs@gnu.org; Wed, 13 Oct 2021 01:14:02 -0400 X-Loop: help-debbugs@gnu.org Resent-From: Robert Irelan Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Wed, 13 Oct 2021 05:14:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 51140 X-GNU-PR-Package: emacs Original-Received: via spool by 51140-submit@debbugs.gnu.org id=B51140.163410203016099 (code B ref 51140); Wed, 13 Oct 2021 05:14:02 +0000 Original-Received: (at 51140) by debbugs.gnu.org; 13 Oct 2021 05:13:50 +0000 Original-Received: from localhost ([127.0.0.1]:57353 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1maWaM-0004Bb-6G for submit@debbugs.gnu.org; Wed, 13 Oct 2021 01:13:50 -0400 Original-Received: from mail-il1-f172.google.com ([209.85.166.172]:38892) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1maWaH-0004BL-SO for 51140@debbugs.gnu.org; Wed, 13 Oct 2021 01:13:48 -0400 Original-Received: by mail-il1-f172.google.com with SMTP id r9so1344316ile.5 for <51140@debbugs.gnu.org>; Tue, 12 Oct 2021 22:13:45 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=mime-version:references:in-reply-to:from:date:message-id:subject:to :cc; bh=6kpXQt1+F+ELTq0e0tT0sTnRgBCs6ikf/Bz7jAbxVnw=; b=jcnH3BXByTU2fbfaMF16sUskCmBz+0TOX8jXgO4aYeehLLuHQ0hLUen/NBiYLIzW7Z KyRyfHWvPvWyvhkEd5r9spS/mVeq2StoUIbDuywxYwiaDagGWP3cKIpobdxrckAsZdP8 65sfn0vIr8+57/JSJOHxYCE97M1LNw1FSauvHwy7Bkxj9u77qBRDus9O2RQIRx3e5436 SA2XRciGtAL3+0Y8EatlaYR2wvWfmL6QzYef8iu5oPigUwkRfnd3916U0kL0XeehWuNh XRCHDpiwEmilMtq4pY19LGjpS676CHIBSq1+p7ElQI/wG17bdsDA9mOeVA78fwvd1Pot 233g== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=x-gm-message-state:mime-version:references:in-reply-to:from:date :message-id:subject:to:cc; bh=6kpXQt1+F+ELTq0e0tT0sTnRgBCs6ikf/Bz7jAbxVnw=; b=X7Bm1p9Ickk3YSTn6mEII53Yv1mVMhTM4eDHbVbSR026o6j9M+62LxhKJ0HVkjgl2s zjQyYWQ3aRQYildhNtpf/AQK1TNH3ZAXYSRWeqsUA9I3WfBlcLN2caG/ULB8RlSuQp9b f6inSGAQDwH3M1uM5+afMy8ty5TvIlinkPvrgpGMlq0D9h/oB7qjfWqSZXU+HkFcdBiI 4MeCaFubiPck7cR6xH3IKRhx+H+epPd0GEOPk24sk0w0mnuRZVL0cBbMIH531qxJ+Ocx wqqWN+HfXSQMI4avC6ct4lEoVQ01Vph3/QSyhw+Tbrumm1buELAF0TLkJxsAm53S6QRQ BI+A== X-Gm-Message-State: AOAM532d1fahaWGwzmLul+QdYHB8WDY864MoZacOHCfJ1zmV0xWT7V5T u2mRt+ywgcmFU8+iiEr5HzPW7j0iHXEG1iLjOQ== X-Google-Smtp-Source: ABdhPJwtRIShnfo33wt0KTFNVzZCIJpEPBVrN2h0tiOIM+YUhr8y3x5rll4ZZ5SfAiX0CBFqQtAsG9esm1JNwrzJARo= X-Received: by 2002:a92:d090:: with SMTP id h16mr20560437ilh.56.1634102019962; Tue, 12 Oct 2021 22:13:39 -0700 (PDT) In-Reply-To: X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list 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-mx.org@gnu.org Original-Sender: "bug-gnu-emacs" Xref: news.gmane.io gmane.emacs.bugs:217089 Archived-At: --0000000000006d3f7905ce3506dd Content-Type: text/plain; charset="UTF-8" (defun +ivy--always-return-zero-exit-code-a (fn &rest args) (let ((process-exit-status-orig (symbol-function 'process-exit-status))) (cl-letf* (((symbol-function 'process-exit-status) (lambda (_proc) (let ((code (funcall process-exit-status-orig _proc))) (if (= code 2) 0 code))))) (apply fn args))) (advice-add #'counsel-rg :around #'+ivy--always-return-zero-exit-code-a) On Tue, Oct 12, 2021 at 3:35 PM Stefan Kangas wrote: > Robert Irelan writes: > > > Ah, I see what you mean. I get the same error when I fix the free > > variables in the lambda. > > Could you provide a fixed recipe for this bug? > -- Robert Irelan rirelan@gmail.com --0000000000006d3f7905ce3506dd Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
=C2=A0 =C2=A0 (defun +ivy--always-return-zero-exit-code-a = (fn &rest args)
=C2=A0 =C2=A0 =C2=A0 (let ((process-exit-status-orig=
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0(symbol-function 'p= rocess-exit-status)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 (cl-letf* (((symbol-fu= nction 'process-exit-status)
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (lambda (_proc)
=C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (let ((code (funcall p= rocess-exit-status-orig _proc)))
=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2= =A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (if (=3D code 2) 0 code)))))<= br>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 (apply fn args)))
=C2=A0 =C2=A0 (a= dvice-add #'counsel-rg :around #'+ivy--always-return-zero-exit-code= -a)

On Tue, Oct 12, 2021 at 3:35 PM Stefan Kangas <stefan@marxist.se> wrote:
Robert Irelan <rirelan@gmail.com> writes:

> Ah, I see what you mean. I get the same error when I fix the free
> variables in the lambda.

Could you provide a fixed recipe for this bug?


--
Robert Irelan
rirelan@gmail.com
--0000000000006d3f7905ce3506dd--