--- 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)
))