--- a/.emacs	Thu Apr 17 23:59:54 2008 +0300
+++ b/.emacs	Thu Apr 17 23:59:54 2008 +0300
@@ -26,8 +26,8 @@
 
 ;; ======================================================================
 ;; Load path.
-(setq my-el-path (expand-file-name "~/.el"))
-(add-to-list 'load-path my-el-path)
+(setq my-el-dir (expand-file-name "~/.el"))
+(add-to-list 'load-path my-el-dir)
 
 ;; ======================================================================
 ;; GNU Serv.
@@ -611,7 +611,16 @@
 ;; (setq-default vc-svn-register-switches "--encoding cp1251")
 (setq-default vc-svn-register-switches nil)
 
-(if (file-exists-p (concat my-el-path "/mercurial.el"))
+(setq my-svn-dir (concat my-el-dir "/svn"))
+(if (file-exists-p my-svn-dir)
+    (progn
+      (add-to-list 'load-path my-svn-dir)
+      (require 'vc-svn)
+      )
+  )
+
+
+(if (file-exists-p (concat my-el-dir "/mercurial.el"))
     (require 'mercurial)
   )