Move path definition to share place.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Thu, 13 Nov 2008 09:39:58 +0200
changeset 92 359f03f8a64b
parent 91 0eb9d7ee4bec
child 96 1c9a7ccc584a
child 97 fe4102cad849
Move path definition to share place.
.emacs
.emacs-my
--- a/.emacs	Thu Nov 13 09:37:02 2008 +0200
+++ b/.emacs	Thu Nov 13 09:39:58 2008 +0200
@@ -3,8 +3,17 @@
 ;; Copyright (C) 2008 by Oleksandr Gavenko <gavenkoa@gmail.com>
 ;; Copyright (C) 2008 by Гавенко Алескандр
 
-(defvar user-el-dir (expand-file-name "~/.el")
-  "Dir where stored extensions.")
+;; ======================================================================
+;; Load path.
+(defvar my-el-dir
+  (expand-file-name "~/.el")
+  "Here live additional lisp packages.")
+(defvar my-usr-el-dir
+  (expand-file-name "~/usr/share/emacs/site-lisp")
+  "Here live additional lisp packages.")
+
+(add-to-list 'load-path my-el-dir)
+(add-to-list 'load-path my-usr-el-dir)
 
 (defvar dot-emacs-my-custom-pre (expand-file-name "~/.emacs-my-custom-pre")
   "Path to file with pre-loaded custom settings.")
--- a/.emacs-my	Thu Nov 13 09:37:02 2008 +0200
+++ b/.emacs-my	Thu Nov 13 09:39:58 2008 +0200
@@ -23,18 +23,6 @@
 (setq debug-on-error nil)               ; t/nil
 
 ;; ======================================================================
-;; Load path.
-(defvar my-el-dir
-  (expand-file-name "~/.el")
-  "Here live additional lisp packages.")
-(defvar my-usr-el-dir
-  (expand-file-name "~/usr/share/emacs/site-lisp")
-  "Here live additional lisp packages.")
-
-(add-to-list 'load-path my-el-dir)
-(add-to-list 'load-path my-usr-el-dir)
-
-;; ======================================================================
 ;; GNU Serv.
 
 ;; (load "~/emacs/bin/gnuserv/gnuserv.el")