Fix last change.

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index dd7f512e8ae..a3458531bbf 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3686,7 +3686,8 @@ This function also runs `deactivate-mark-hook'."
             ((/= (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)