[elpa] externals/hyperbole 4314e8c246: Get list of args from closures (#528)

[ELPA Syncer]

branch: externals/hyperbole
commit 4314e8c246f7ec4c85774dc72752d72d97f1c14f
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Get list of args from closures (#528)
---
 ChangeLog | 4 ++++
 hargs.el  | 5 +++--
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fe7a36b0bc..0f44ed16f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2024-05-18  Mats Lidell  <matsl@gnu.org>
+
+* hargs.el (hargs:action-get): Add Emacs 30 closure support.
+
 2024-05-17  Mats Lidell  <matsl@gnu.org>
 
 * Makefile (dockerized): Add quotes so make is executed in the container.
diff --git a/hargs.el b/hargs.el
index e5367f00b8..319c4e5c7d 100644
--- a/hargs.el
+++ b/hargs.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    31-Oct-91 at 23:17:35
-;; Last-Mod:     20-Jan-24 at 19:43:53 by Mats Lidell
+;; Last-Mod:     18-May-24 at 16:07:11 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -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