Browse Source

Use user-emacs-directory if necessary

pull/5/head
10sr 9 years ago
parent
commit
03f455dcae
1 changed files with 10 additions and 5 deletions
  1. +10
    -5
      emacs.el

+ 10
- 5
emacs.el View File

@@ -705,12 +705,14 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(setq make-backup-files t)
;; (make-directory (expand-file-name "~/.emacsbackup"))
(setq backup-directory-alist
(cons (cons "\\.*$" (expand-file-name "~/.emacs.d/backup"))
(cons (cons "\\.*$" (expand-file-name (concat user-emacs-directory
"backup")))
backup-directory-alist))
(setq version-control 'never)
(setq delete-old-versions t)

(setq auto-save-list-file-prefix (expand-file-name "~/.emacs.d/auto-save/"))
(setq auto-save-list-file-prefix (expand-file-name (concat user-emacs-directory
"auto-save/")))
(setq delete-auto-save-files t)

(add-to-list 'completion-ignored-extensions ".bak")
@@ -720,7 +722,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
(add-hook 'after-save-hook
'executable-make-buffer-file-executable-if-script-p)

(defvar-set bookmark-default-file "~/.emacs.d/bmk")
(defvar-set bookmark-default-file (concat user-emacs-directory
"bmk"))
(add-hook 'recentf-load-hook
(lambda ()
(add-to-list 'recentf-exclude
@@ -1682,7 +1685,8 @@ IF OK-IF-ALREADY-EXISTS is true force download."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; recentf-mode

(setq recentf-save-file (expand-file-name "~/.emacs.d/recentf")
(setq recentf-save-file (expand-file-name (concat user-emacs-directory
"recentf"))
recentf-max-menu-items 20
recentf-max-saved-items 30
recentf-show-file-shortcuts-flag nil)
@@ -2137,7 +2141,8 @@ if arg given, use that eshell buffer, otherwise make new eshell buffer."
(setq eshell-history-index nil))
ad-do-it))

(setq eshell-directory-name "~/.emacs.d/eshell/")
(setq eshell-directory-name (concat user-emacs-directory
"eshell/"))
(setq eshell-term-name "eterm-color")
(setq eshell-scroll-to-bottom-on-input t)
(setq eshell-cmpl-ignore-case t)


Loading…
Cancel
Save