Mercurial > emacs

changeset 15169:a00021443533

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-drag-region): Set the region before reading a character, so the selection exists while we wait.
author Richard M. Stallman <rms@gnu.org>
date Mon, 06 May 1996 00:43:26 +0000
parents a167da647656
children 0d698228e98c
files lisp/mouse.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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))