emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [elpa] externals/hyperbole 4314e8c246: Get list of args from closure


From: Stefan Monnier
Subject: Re: [elpa] externals/hyperbole 4314e8c246: Get list of args from closures (#528)
Date: Sat, 18 May 2024 19:19:24 -0400
User-agent: Gnus/5.13 (Gnus v5.13)

> @@ -100,7 +100,8 @@ Current button is being edited when EDITING-FLAG is t.
>  Return nil if ACTION is not a list or `byte-code' object, has no
>  interactive form or takes no arguments."
>    (save-excursion
> -    (and (or (subrp action) (byte-code-function-p action) (listp action))
> +    (and (or (subrp action) (byte-code-function-p action) (listp action)
> +             (and (fboundp #'closurep) (closurep action)))
>        (let ((interactive-form (action:commandp action)))
>          (when interactive-form
>            (hpath:relative-arguments

Why not remove this `(or ...)` altogether, and just call `interactive-form`
and see if it returns non-nil?


        Stefan




reply via email to

[Prev in Thread] Current Thread [Next in Thread]