changeset 80080:6ec8ade53232

Revert previous change, which should have been on the trunk.
author Glenn Morris <rgm@gnu.org>
date Fri, 08 Feb 2008 20:11:33 +0000
parents dd3b45bfc388
children b0ced9a93377
files lisp/cus-start.el
diffstat 1 files changed, 5 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-start.el	Fri Feb 08 20:09:16 2008 +0000
+++ b/lisp/cus-start.el	Fri Feb 08 20:11:33 2008 +0000
@@ -129,6 +129,7 @@
 			     :match (lambda (widget value)
 				      (and value (not (functionp value)))))
 			    (function :value ignore))))
+	     (selection-coding-system mule coding-system "22.1")
 	     ;; dired.c
 	     (completion-ignored-extensions dired
 					    (repeat (string :format "%v")))
@@ -455,6 +456,10 @@
 (custom-add-to-group 'iswitchb 'read-buffer-function 'custom-variable)
 (custom-add-to-group 'font-lock 'open-paren-in-column-0-is-defun-start
 		     'custom-variable)
+(put 'selection-coding-system 'custom-set
+     (lambda (symbol value)
+       (set-selection-coding-system value)
+       (set symbol value)))
 
 ;; Record cus-start as loaded
 ;; if we have set up all the info that we can set up.