[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 ()