--- a/.emacs-my	Wed Mar 24 23:53:55 2010 +0200
+++ b/.emacs-my	Wed Mar 24 23:55:56 2010 +0200
@@ -67,7 +67,7 @@
 
 (menu-bar-mode -1)
 (tool-bar-mode -1)
-(tooltip-mode -1)
+(when (>= emacs-major-version 22) (tooltip-mode -1))
 (scroll-bar-mode 1)
 
 (setq frame-title-format "Emacs - %b")
@@ -143,7 +143,8 @@
 (when (and (= emacs-major-version 23) (= emacs-minor-version 1) (equal window-system 'w32))
   (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.
 
-(server-start)
+(when (>= emacs-major-version 22)
+  (server-start))
 
 ;; (desktop-load-default)
 ;; (desktop-read)
@@ -223,8 +224,9 @@
 ;; Set margin only for desired modes! Do not frustrate calendar any more.
 (make-variable-buffer-local 'scroll-margin)
 (mapc (lambda (hook) (add-hook hook (lambda nil (setq scroll-margin my-scroll-margin))))
-      (delete-dups (append my-text-mode-hook-list my-devel-mode-hook-list
-                           '(recentf-mode-hook))) )
+      ;; TODO its good invoke delete-dups for list, but delete-dups not exist in Emacs 21.4
+      (append my-text-mode-hook-list my-devel-mode-hook-list
+                           '(recentf-mode-hook)) )
 
 ;; ----------------------------------------------------------------------
 ;; searching.
@@ -271,7 +273,10 @@
 (require 'pc-select)
 (setq pc-select-selection-keys-only t)  ; To avoid some key bindings as F6, etc.
 (setq pc-select-meta-moves-sexps t)
-(pc-selection-mode 1)
+(cond
+ ((= emacs-major-version 21) (pc-selection-mode))
+ ((>= emacs-major-version 22) (pc-selection-mode 1))
+ )
 
 (when (eq window-system 'x)
   (setq x-select-enable-clipboard t)    ; for Emacs 21.2.1 and newer
@@ -380,7 +385,7 @@
 (cond
  ((equal window-system 'w32)          ; also (string-equal system-type "windows-nt")
   (progn
-    (set-selection-coding-system 'utf-16le-dos)
+    (set-selection-coding-system 'utf-16-le-dos)
     (prefer-coding-system 'utf-8-unix)
     (prefer-coding-system 'cp1251-dos)
     ))