diff -r c2aac4122192 -r 32b54537dd10 .emacs-my --- 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) ))