[nongnu] elpa/git-commit 064a047932 1/7: transient-infix-read: Use same macros as default around method

[ELPA Syncer]

branch: elpa/git-commit
commit 064a047932ca34c214a4fb4b7f06792df8c38746
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

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