[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#51140: 28.0.50; cl-letf appears not to work with native-comp (at lea
From: |
Stefan Kangas |
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: |
Mon, 18 Oct 2021 22:31:32 -0700 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/29.0.50 (gnu/linux) |
Robert Irelan <rirelan@gmail.com> writes:
> (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)
Thanks, copying in Andrea here.
> 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?