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 -

[email protected]" (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→

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