linux emacs配置文件,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→ ;;============================================================================================================