emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[nongnu] elpa/hyperdrive 468cda16f0 2/3: Change: (h/menu-refresh) Use ne


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 468cda16f0 2/3: Change: (h/menu-refresh) Use new transient-active-prefix function
Date: Mon, 12 Aug 2024 16:00:14 -0400 (EDT)

branch: elpa/hyperdrive
commit 468cda16f0529e05a60570af18d5e1a9ef877cd5
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (h/menu-refresh) Use new transient-active-prefix function
---
 hyperdrive-lib.el | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 8f1e51ba22..47c62464d8 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1477,17 +1477,7 @@ Default function; see variable 
`h/gateway-start-function'."
 
 (defun h/menu-refresh ()
   "Refresh `hyperdrive-menu' if it's open."
-  (when (and
-         ;; Depending on transient-show-popup customization, there
-         ;; might be no popup (yet).
-         transient--showp
-         transient--prefix
-         (eq (oref transient--prefix command) 'h/menu)
-         ;; Check that the transient is not suspended.
-         (or (memq 'transient--pre-command pre-command-hook)
-             (and (memq t pre-command-hook)
-                  (memq 'transient--pre-command
-                        (default-value 'pre-command-hook)))))
+  (when (transient-active-prefix '(h/menu))
     (transient--refresh-transient)))
 
 (defun h//gateway-stop-default ()



reply via email to

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