--- a/.emacs-my	Fri Apr 01 18:40:42 2016 +0300
+++ b/.emacs-my	Fri Apr 01 18:46:29 2016 +0300
@@ -2299,7 +2299,9 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")
 
-(eval-when 'compile (require 'vc-svn))
+(eval-when 'compile
+  (require 'vc-annotate)
+  (require 'vc-svn))
 
 ;; `-b' switch to ignore changes in whitespaces.
 ;; (setq vc-git-diff-switches "-b")
@@ -2325,12 +2327,6 @@
 
 (global-set-key (kbd "C-x v D") 'my-vc-root-diff)
 
-(when (equal window-system 'w32)
-  (modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos))
-  (modify-coding-system-alist 'process "svn" '(cp1251 . cp1251))
-  (setq vc-svn-checkin-switches '("--encoding" "UTF-8"))
-  )
-
 (when window-system
   (setq
    vc-annotate-very-old-color "#0b5b20"

--- a/.emacs-obsolete	Fri Apr 01 18:40:42 2016 +0300
+++ b/.emacs-obsolete	Fri Apr 01 18:46:29 2016 +0300
@@ -235,3 +235,12 @@
 (message "ECB")
 
 (setq ecb-tip-of-the-day nil)
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+(message "vc-mode, VCS, version control, cvs, svn, mercurial, hg, bazaar, bzr, git, fossil")
+
+(when (equal window-system 'w32)
+  (modify-coding-system-alist 'process "cvs" '(cp1251-dos . cp1251-dos))
+  (modify-coding-system-alist 'process "svn" '(cp1251 . cp1251))
+  (setq vc-svn-checkin-switches '("--encoding" "UTF-8"))
+  )