From 54e350977148df1c2e26d83492ee3c6668c047d1 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 20 Jun 2022 17:34:33 +0200 Subject: [PATCH] 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). --- lisp/term/x-win.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.39.2