# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1281211830 14400
# Node ID 0e4b6259df9248fab23b1b8fd41d2f672882632a
# Parent  14830418f9fc04d22d9d16e8dc0bdf942e01ed0c
Fix last change.

diff -r 14830418f9fc -r 0e4b6259df92 lisp/simple.el
--- a/lisp/simple.el	Sat Aug 07 15:39:04 2010 -0400
+++ b/lisp/simple.el	Sat Aug 07 16:10:30 2010 -0400
@@ -3686,7 +3686,8 @@
 	    ((/= (region-beginning) (region-end))
 	     (x-set-selection 'PRIMARY
 			      (buffer-substring-no-properties
-			       (point) (mark))))))
+			       (region-beginning)
+			       (region-end))))))
     (if (and (null force)
 	     (or (eq transient-mark-mode 'lambda)
 		 (and (eq (car-safe transient-mark-mode) 'only)