# HG changeset patch
# User Oleksander Gavenko <gavenko_a@3g.ua>
# Date 1208465994 -10800
# Node ID 1fea5e1edb38aa7bf4301e8bcf9c4ac2fe6ad5ba
# Parent  1c6aae52de4be420fbdc0677eb9c12c0e06c0bf9
Load vc-svn if ~/.el/svn dir exist.

diff -r 1c6aae52de4b -r 1fea5e1edb38 .emacs
--- 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)
   )