# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 797740443 0
# Node ID dc4b96a8dc2e5e197becb00740bd4259c1673979
# Parent  645e3883da7220c8a716b9544ad16d32fa3eac8f
(x-set-selection): Fix up interactive defaults.

diff -r 645e3883da72 -r dc4b96a8dc2e lisp/select.el
--- a/lisp/select.el	Thu Apr 13 02:03:59 1995 +0000
+++ b/lisp/select.el	Thu Apr 13 02:34:03 1995 +0000
@@ -39,16 +39,20 @@
   "Make an X Windows selection of type TYPE and value DATA.
 The argument TYPE (default `PRIMARY') says which selection, 
 and DATA specifies the contents.  DATA may be a string,
-a symbol, an integer (or a cons of two integers or list of two integers),
-or a cons of two markers pointing to the same buffer.
-In the last case, the selection is considered to be the text 
-between the markers.
-The data may also be a vector of valid non-vector selection values."
+a symbol, an integer (or a cons of two integers or list of two integers).
+
+The selection may also be a cons of two markers pointing to the same buffer,
+or an overlay.  In these cases, the selection is considered to be the text 
+between the markers *at whatever time the selection is examined*.
+Thus, editing done in the buffer after you specify the selection
+can alter the effective value of the selection.
+
+The data may also be a vector of valid non-vector selection values.
+
+Interactively, the text of the region is used as the selection value."
   (interactive (if (not current-prefix-arg)
-		   (list (read-string "Store text for pasting: "))
-		 (list (cons ;; these need not be ordered.
-			(copy-marker (point-marker))
-			(copy-marker (mark-marker))))))
+		   (list 'PRIMARY (read-string "Set text for pasting: "))
+		 (list 'PRIMARY (substring (region-beginning) (region-end)))))
   ;; This is for temporary compatibility with pre-release Emacs 19.
   (if (stringp type)
       (setq type (intern type)))