[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
- Re: [elpa] externals/hyperbole 4314e8c246: Get list of args from closures (#528),
Stefan Monnier <=