[Emacs-diffs] Changes to emacs/lisp/select.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/02/08 20:16:36

Index: select.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/select.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -b -r1.38 -r1.39
--- select.el   1 Feb 2008 16:01:09 -0000       1.38
+++ select.el   8 Feb 2008 20:16:35 -0000       1.39
@@ -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.