diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2026-01-30 09:51:03 +0100 |
|---|---|---|
| committer | Jonas Bernoulli <jonas@bernoul.li> | 2026-01-30 09:51:03 +0100 |
| commit | f425a5804a10c3eefe4b07e03615684684fee110 (patch) | |
| tree | 74ac14f9dd38f3e890ec308f7d5f8217cc2bf930 | |
| parent | 0bbd75bd8d435fca536274da3058420f4450c6d1 (diff) | |
Use get-text-property instead of button-get
In most cases we already used the former.
| -rw-r--r-- | lisp/transient.el | 7 |
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) |
