emacs修改配置文件路径

1. 修改site-lisp下的subdirs.el,添加以下几行

(defun fullpath-relative-to-call-location (file-path)  (concat (file-name-directory (or load-file-name buffer-file-name)) file-path))
(defalias 'fullpath 'fullpath-relative-to-call-location)
(load (fullpath "../jinzCFG/init.el") )

    此时init.el便在当前路径下的上一级jinzCFG文件下.

2. init.el的配置文件内容

(message "Init init.el!")
;;-SET-ENVIRONMENT--------------------------------------------------------------------------------------------
(setq jinz-default-dir (concat default-directory "/../jinzCFG"))
(setq jinz-default-path (concat default-directory "/.."))
(setq source-directory (concat jinz-default-path "/24.3"))
(setq-default frame-title-format (concat "%b - e@" (system-name)))
(setq user-init-file jinz-default-path)
(setq user-emacs-directory jinz-default-dir)
(setenv "HOME" jinz-default-dir)
(setenv "PATH" jinz-default-path)
;; set the default file path
(add-to-list 'load-path jinz-default-dir)

;; window-system 表示是否为x窗体,其判断为:
;; (if window-system nil)
;; (if (not window-system) nil)

;; system-type 表示系统类型
(cond
 ((string-equal system-type "windows-nt") ; Microsoft Windows
  (progn
    (message "Microsoft Windows") )
 )
 ((string-equal system-type "darwin")   ; Mac OS X
  (progn
    (message "Mac OS X"))
  )
 ((string-equal system-type "gnu/linux") ; linux
  (progn
    (message "Linux") )
  )
 )

其它可能用到的变量

system-name → returns the host name.
user-login-name → returns user login name.
user-emacs-directory → init file dir.
user-init-file → init file path.
data-directory→

;;============================================================================================================