branch: elpa/git-commit
commit 064a047932ca34c214a4fb4b7f06792df8c38746
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
transient-infix-read: Use same macros as default around method
See docstring of that method for why that is necessary.
---
lisp/magit-transient.el | 12 +++++++-----
1 file changed, 7 insertions(+), 5 deletions(-)
diff --git a/lisp/magit-transient.el b/lisp/magit-transient.el
index 03e906d1a8..85fad022d6 100644
--- a/lisp/magit-transient.el
+++ b/lisp/magit-transient.el
@@ -74,11 +74,13 @@
;;;; Read
(cl-defmethod transient-infix-read :around ((obj magit--git-variable:urls))
- (mapcar (lambda (url)
- (if (string-prefix-p "~" url)
- (expand-file-name url)
- url))
- (cl-call-next-method obj)))
+ (transient--with-emergency-exit
+ (transient--with-suspended-override
+ (mapcar (lambda (url)
+ (if (string-prefix-p "~" url)
+ (expand-file-name url)
+ url))
+ (cl-call-next-method obj)))))
(cl-defmethod transient-infix-read ((obj magit--git-variable:choices))
(let ((choices (oref obj choices)))
