Решил проблему copy/paste в X. Решил проблему поиска в UTF-8 буфере.
Исправления работают только с 22.x версии.
--- a/.emacs-my Tue Dec 09 17:07:30 2008 +0200
+++ b/.emacs-my Fri Dec 19 18:28:17 2008 +0200
@@ -223,22 +223,28 @@
(prefer-coding-system 'cp866-dos)
(modify-coding-system-alist 'file "\\.el" 'iso-2022-7bit)
-(if (equal window-system 'w32) ; also (string-equal system-type "windows-nt")
- (progn
- (set-selection-coding-system 'cp1251)
- (prefer-coding-system 'utf-8-unix)
- (prefer-coding-system 'cp1251-dos)
- (modify-coding-system-alist 'file "\\.[ch]$" 'cp1251)
- (modify-coding-system-alist 'file "[Mm]akefile.*$" 'cp1251)
- )
+(cond
+ ((equal window-system 'w32) ; also (string-equal system-type "windows-nt")
(progn
- (set-selection-coding-system 'utf-8-unix)
+ (set-selection-coding-system 'cp1251)
+ (prefer-coding-system 'utf-8-unix)
+ (prefer-coding-system 'cp1251-dos)
+ ))
+ ((equal window-system 'x)
+ (progn
(prefer-coding-system 'cp1251-dos)
(prefer-coding-system 'utf-8-unix)
- (modify-coding-system-alist 'file "\\.[ch]$" 'cp1251-unix)
- (modify-coding-system-alist 'file "[Mm]akefile.*$" 'cp1251-unix)
+ (setq selection-coding-system 'ctext-with-extensions)
+ (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING))
(modify-coding-system-alist 'process ".*" 'utf-8-unix)
- )
+ ))
+ (t
+ (progn
+ ;; (set-selection-coding-system 'utf-8-unix)
+ (prefer-coding-system 'cp1251-dos)
+ (prefer-coding-system 'utf-8-unix)
+ (modify-coding-system-alist 'process ".*" 'utf-8-unix)
+ ))
)
;; XXXXXXXXXXXXXXXXXXXXXXXX