From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 20 Jun 2022 15:34:33 +0000 (+0200)
Subject: Issue a message if getting a selection takes a long time
X-Git-Tag: emacs-29.0.90~1447^2~1581
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=54e350977148df1c2e26d83492ee3c6668c047d1;p=emacs.git

Issue a message if getting a selection takes a long time

* lisp/term/x-win.el (gui-backend-get-selection): If getting the
selection takes a long time, issue a message after one second
(bug#46935).
---

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 31fc3ba534d..6e083499df4 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1366,7 +1366,9 @@ This returns an error if any Emacs frames are X frames."
 (cl-defmethod gui-backend-get-selection (selection-symbol target-type
                                          &context (window-system x)
                                          &optional time-stamp terminal)
-  (x-get-selection-internal selection-symbol target-type time-stamp terminal))
+  (with-delayed-message (1 "Waiting for selection")
+    (x-get-selection-internal selection-symbol target-type
+                              time-stamp terminal)))
 
 ;; Initiate drag and drop
 (add-hook 'after-make-frame-functions 'x-dnd-init-frame)