# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1202501795 0
# Node ID 31216f583b8acbaed3acf7848b5f11652723efa4
# Parent  9bf7ff5c46e6362451caa2d26ed9db67823c4fd2
(selection-coding-system): Make it a defcustom, and add the properties
from cus-start.el.  Bump :version.

diff -r 9bf7ff5c46e6 -r 31216f583b8a lisp/select.el
--- a/lisp/select.el	Fri Feb 08 20:12:26 2008 +0000
+++ b/lisp/select.el	Fri Feb 08 20:16:35 2008 +0000
@@ -28,7 +28,7 @@
 
 ;;; Code:
 
-(defvar selection-coding-system nil
+(defcustom selection-coding-system nil
   "Coding system for communicating with other X clients.
 
 When sending text via selection and clipboard, if the target
@@ -50,7 +50,14 @@
 See also the documentation of the variable `x-select-request-type' how
 to control which data-type to request for receiving text.
 
-The default value is nil.")
+The default value is nil."
+  :type 'coding-system
+  :group 'mule
+  ;; Default was compound-text-with-extensions in 22.x (pre-unicode).
+  :version "23.1"
+  :set (lambda (symbol value)
+         (set-selection-coding-system value)
+         (set symbol value)))
 
 (defvar next-selection-coding-system nil
   "Coding system for the next communication with other X clients.