scratch/emoji afd0fe6: Re-copy transient--pixel-width from subr-x

[Lars Ingebrigtsen]

branch: scratch/emoji
commit afd0fe61e141a0b3df1c96fa6f83999aed5a516f
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Re-copy transient--pixel-width from subr-x
---
 lisp/transient.el | 18 ++++++------------
 1 file changed, 6 insertions(+), 12 deletions(-)

diff --git a/lisp/transient.el b/lisp/transient.el
index 3e4d094..85a55ee 100644
--- a/lisp/transient.el
+++ b/lisp/transient.el
@@ -2947,18 +2947,12 @@ have a history of their own.")
   (with-temp-buffer
     (insert string)
     (save-window-excursion
-      (let ((dedicated (window-dedicated-p)))
-        ;; Avoid errors if the selected window is a dedicated one,
-        ;; and they just want to insert a document into it.
-        (unwind-protect
-            (progn
-              (when dedicated
-                (set-window-dedicated-p nil nil))
-              (set-window-buffer nil (current-buffer))
-              (car (window-text-pixel-size
-                    nil (line-beginning-position) (point))))
-          (when dedicated
-            (set-window-dedicated-p nil dedicated)))))))
+      ;; Avoid errors if the selected window is a dedicated one,
+      ;; and they just want to insert a document into it.
+      (set-window-dedicated-p nil nil)
+      (set-window-buffer nil (current-buffer))
+      (car (window-text-pixel-size
+            nil (line-beginning-position) (point))))))
 
 (cl-defmethod transient--insert-group ((group transient-columns))
   (let* ((columns