[elpa] externals/hyperbole 9ddee66322 2/6: hmouse-drv.el (hkey-debug): Show action type and its arguments

[ELPA Syncer]

branch: externals/hyperbole
commit 9ddee66322e740b9984f3be00bc053ec6ab23860
Author: Robert Weiner <rsw@gnu.org>
Commit: Robert Weiner <rsw@gnu.org>

    hmouse-drv.el (hkey-debug): Show action type and its arguments
---
 ChangeLog     |  2 ++
 hmouse-drv.el | 29 +++++++++++++++++------------
 2 files changed, 19 insertions(+), 12 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index fa3164563c..4ad8e0b7f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -19,6 +19,8 @@
 
 * test/hmouse-drv-tests.el (hbut-defal): Generalize to prevent failures.
 
+* hmouse-drv.el (hkey-debug): Improve to show action type and its arguments.
+
 2022-01-08  Bob Weiner  <rsw@gnu.org>
 
 * hpath.el (hpath:return-one-value): Complete rewrite to handle complex
diff --git a/hmouse-drv.el b/hmouse-drv.el
index 50dc2e471c..7c5c584986 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -839,18 +839,23 @@ frame instead."
       (mouse-drag-frame start-event 'move)))))
 
 (defun hkey-debug (pred pred-value hkey-action)
-  (message (format "(HyDebug) %sContext: %s; %s: %s; Buf: %s; Mode: %s; 
MinibufDepth: %s"
-                  (cond ((eq pred-value 'hbut:current)
-                         (format "ButType: %s; ButLabel: %s; "
-                                 (hattr:get  'hbut:current 'categ)
-                                 (hypb:format-quote (hbut:label 
'hbut:current))))
-                        ((functionp pred-value)
-                         (format "Selection Func: %s; " pred-value))
-                        (t ""))
-                  pred
-                  (if assist-flag "Assist" "Action")
-                  (hypb:format-quote (format "%s" hkey-action))
-                  (current-buffer) major-mode (minibuffer-depth))))
+  (message "(HyDebug) %sContext: %s; %s: %s; Buf: %s; Mode: %s; MinibufDepth: 
%s"
+          (cond ((eq pred-value 'hbut:current)
+                 (format "ButType: %s; ButLabel: %s; "
+                         (hattr:get 'hbut:current 'categ)
+                         (hypb:format-quote (hbut:label 'hbut:current))))
+                ((functionp pred-value)
+                 (format "Selection Func: %s; " pred-value))
+                (t ""))
+          pred
+          (if assist-flag "Assist" "Action")
+          (if (hattr:get  'hbut:current 'actype)
+              (cons (hattr:get  'hbut:current 'actype)
+                    (hattr:get  'hbut:current 'args))
+            (hypb:format-quote (format "%s" hkey-action)))
+          (current-buffer)
+          major-mode
+          (minibuffer-depth)))
 
 (defun hkey-execute (assisting)
   "Evaluate Action Key form (or Assist Key form with ASSISTING non-nil) for 
first non-nil predicate from `hkey-alist'.