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