# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 942412177 0
# Node ID 73efdb6af008d1b5fc01baa9b762591602562e60
# Parent  f381bc81367bf1532d50e31e0bdd9d37a1cf9c3e
(x-set-selection): Call buffer-substring, not
substring.  Also fix docstring

diff -r f381bc81367b -r 73efdb6af008 lisp/select.el
--- a/lisp/select.el	Fri Nov 12 13:01:30 1999 +0000
+++ b/lisp/select.el	Fri Nov 12 13:09:37 1999 +0000
@@ -51,10 +51,11 @@
 
 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."
+Interactively, the text of the region is used as the selection value
+if the prefix arg is set."
   (interactive (if (not current-prefix-arg)
 		   (list 'PRIMARY (read-string "Set text for pasting: "))
-		 (list 'PRIMARY (substring (region-beginning) (region-end)))))
+		 (list 'PRIMARY (buffer-substring (region-beginning) (region-end)))))
   ;; This is for temporary compatibility with pre-release Emacs 19.
   (if (stringp type)
       (setq type (intern type)))