summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJonas Bernoulli <jonas@bernoul.li>2026-01-30 09:51:03 +0100
committerJonas Bernoulli <jonas@bernoul.li>2026-01-30 09:51:03 +0100
commitf425a5804a10c3eefe4b07e03615684684fee110 (patch)
tree74ac14f9dd38f3e890ec308f7d5f8217cc2bf930
parent0bbd75bd8d435fca536274da3058420f4450c6d1 (diff)
Use get-text-property instead of button-get
In most cases we already used the former.
-rw-r--r--lisp/transient.el7
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/transient.el b/lisp/transient.el
index 2eaf9af..edadc48 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -4427,9 +4427,9 @@ have a history of their own.")
(setq transient--buffer (get-buffer-create transient--buffer-name))
(with-current-buffer transient--buffer
(when transient-enable-menu-navigation
- (setq focus (or (button-get (point) 'command)
+ (setq focus (or (get-text-property (point) 'command)
(and (not (bobp))
- (button-get (1- (point)) 'command))
+ (get-text-property (1- (point)) 'command))
(transient--heading-at-point))))
(erase-buffer)
(transient--insert-menu setup))
@@ -5333,8 +5333,7 @@ See `forward-button' for information about N."
(goto-char (match-beginning 0))))
(command
(cl-flet ((found ()
- (and$ (button-at (point))
- (eq (button-get $ 'command) command))))
+ (eq (get-text-property (point) 'command) command)))
(while (and (ignore-errors (forward-button 1))
(not (found))))
(unless (found)