高手帮我看一下我的emacs设置，为什么我的emacs还是不能和其它的编辑器互拷

fylzd

先前我的emacs加了一句(set-selection-coding-system 'cn-gb-2312)就能和其它的编辑器相互拷贝粘贴，现在加上了这句话也不能互拷贝，什么原因呢。是不是和我设置了背景有关系？还是和我使用了一个在emacs左边添加行号的软件有关系？我都尝试了，似乎都不是。
高手如果有时间帮忙看一看，问题出在那里，多谢了。

前面的部分是rh9自己带的，中间往后是我从清华bbs上学的，问题可能出在这里，多谢各位！
******************************************************
;; Red Hat Linux default .emacs initialization file  ; -*- mode: emacs-lisp -*-
;; Set up the keyboard so the delete key on both the regular keyboard
;; and the keypad delete the character under the cursor and to the right
;; under X, instead of the default, backspace behavior.
(global-set-key [delete] 'delete-char)
(global-set-key [kp-delete] 'delete-char)

;; turn on font-lock mode
(global-font-lock-mode t)
;; enable visual feedback on selections
(setq-default transient-mark-mode t)

;; always end a file with a newline
(setq require-final-newline t)

;; stop at the end of the file, not just add lines
(setq next-line-add-newlines nil)

(when window-system
  ;; enable wheelmouse support by default
  (mwheel-install)
  ;; use extended compound-text coding for X clipboard
  (set-selection-coding-system 'compound-text-with-extensions))

(setq frame-title-format "@%b")
;; backup policies
(setq make-backup-files t)
(setq version-control t)
(setq kept-old-versions 2)
(setq kept-new-versions 5)
(setq delete-old-versions t)
(setq backup-directory-alist '(("" . "~/.emacsbackup")))

(setq-default cursor-type 'bar)
(setq inhibit-startup-message t)
(setq column-number-mode t)
(setq kill-ring-max 200)

(custom-set-variables
  ;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
)
(custom-set-faces
  ;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
  ;; Your init file should contain only one such instance.
)

(setq default-fill-column 60)

(setq default-major-mode 'text-mode)

;;when a parenthese was fit ,another was shown
(show-paren-mode t)
(setq show-paren-style 'parentheses)

(mouse-avoidance-mode 'animate)
;;let mouse cursor go ,let you can see the cursor

(global-font-lock-mode t)                                                                                          
;;lighented the syntax                                                                                                      

;;
(put 'set-goal-column 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'LaTeX-hide-environment 'disabled nil)
;;open some defaut functions                                                                                                                             
;;                                                                                                                          
(setq version-control t)
(setq kept-new-versions 3)
(setq delete-old-versions t)
(setq kept-old-versions 2)
(setq dired-kept-versions 1)                                 
;;set the backup option in order to more safe

(auto-image-file-mode)
;;let emacs can open image

(set-language-environment 'Chinese-GB)
(set-keyboard-coding-system 'euc-cn)
(set-clipboard-coding-system 'euc-cn)
(set-terminal-coding-system 'euc-cn)
(set-buffer-file-coding-system 'euc-cn)
(set-selection-coding-system 'euc-cn)
(modify-coding-system-alist 'process "*" 'euc-cn)
(setq default-process-coding-system
            '(euc-cn . euc-cn))
(setq-default pathname-coding-system 'euc-cn)

(when (string-match "x" (prin1-to-string window-system))
  (setq font-encoding-alist
    (append '(("MuleTibetan-0" (tibetan . 0))
          ("GB2312"        (chinese-gb2312 . 0))
          ("BIG5"          (chinese-big5 . 0))
          ("JISX0208"      (japanese-jisx0208 . 0))
          ("JISX0212"      (japanese-jisx0212 . 0))
          ("VISCII"        (vietnamese-viscii-lower . 0))
          ("KSC5601"       (korean-ksc5601 . 0))
          ("MuleArabic-0"  (arabic-digit . 0))
          ("MuleArabic-1"  (arabic-1-column . 0))
          ("MuleArabic-2"  (arabic-2-column . 0))
          ("UTF8"       (utf-8 . 0))
          ("unicode"       (unicode . 0))
          ) font-encoding-alist))
  
  (create-fontset-from-fontset-spec
   "-*-fixed-medium-r-*-*-16-*-*-*-c-*-fontset-chinese,
    chinese-gb2312:-*-simsun-medium-r-*-*-16-*-*-*-c-*-gb2312.1980-*,
    chinese-big5-1:-*-mingliu-medium-r-*-*-16-*-*-*-c-*-big5-0,
    chinese-big5-2:-*-mingliu-medium-r-*-*-16-*-*-*-c-*-big5-0,
    utf-8:-efont-*-medium-r-*-*-16-*-*-*-p-*-iso10646-1,
    unicode:-efont-*-medium-r-*-*-16-*-*-*-p-*-iso10646-1")
  (set-default-font "fontset-chinese"))


(setq load-path (append load-path '("/usr/local/include")))
(set-scroll-bar-mode nil)   ; no scroll bar, even in x-window system (recommended)
(require 'wb-line-number)
(wb-line-number-toggle)

(set-foreground-color "white")
(set-background-color "darkblue")

(set-selection-coding-system 'cn-gb-2312)
***************************************************

Vel

google mule-gbk

fylzd

多谢。我看看