branch: externals/transient
commit f425a5804a10c3eefe4b07e03615684684fee110
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Use get-text-property instead of button-get
In most cases we already used the former.
---
lisp/transient.el | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/lisp/transient.el b/lisp/transient.el
index 2eaf9afbdb..edadc48367 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)
