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).
This commit is contained in:
Lars Ingebrigtsen 2022-06-20 17:34:33 +02:00
parent c6ff592663
commit 54e3509771

View file

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