(mouse-drag-region): Set the region before reading a

character, so the selection exists while we wait.

1 files changed, 3 insertions, 3 deletions

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 14fe1c77529..00a53d6c8fc 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -575,13 +575,13 @@ remains active.  Otherwise, it remains until the next input event."
               (if (not (= (overlay-start mouse-drag-overlay)
                           (overlay-end mouse-drag-overlay)))
                   (let (last-command this-command)
+                    (push-mark (overlay-start mouse-drag-overlay) t t)
+                    (goto-char (overlay-end mouse-drag-overlay))
+                    (copy-region-as-kill (point) (mark t))
                     (let ((inhibit-quit t))
                       (setq unread-command-events
                             (cons (read-event) unread-command-events))
                       (setq quit-flag nil))
-                    (push-mark (overlay-start mouse-drag-overlay) t t)
-                    (goto-char (overlay-end mouse-drag-overlay))
-                    (copy-region-as-kill (point) (mark t))
                     (mouse-set-region-1)
                     (delete-overlay mouse-drag-overlay))
                 (goto-char (overlay-end mouse-drag-overlay))