# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831343406 0
# Node ID a00021443533c72a13ca48b268028d53463db643
# Parent  a167da6476565143e947942649ea72966143bd42
(mouse-drag-region): Set the region before reading a
character, so the selection exists while we wait.

diff -r a167da647656 -r a00021443533 lisp/mouse.el
--- a/lisp/mouse.el	Sun May 05 18:52:57 1996 +0000
+++ b/lisp/mouse.el	Mon May 06 00:43:26 1996 +0000
@@ -575,13 +575,13 @@
 	      (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))