From: Francois Fleuret Date: Fri, 27 Jun 2014 12:39:11 +0000 (+0200) Subject: Update. X-Git-Url: https://fleuret.org/cgi-bin/gitweb/gitweb.cgi?a=commitdiff_plain;h=81269eb9ce700853f25e70bb5be83a0247eb9983;p=elisp.git Update. --- diff --git a/emacs.el b/emacs.el index a4a0304..d594243 100644 --- a/emacs.el +++ b/emacs.el @@ -31,6 +31,9 @@ ;; Xft.antialias: true ;; Xft.rgba: rgb +;; This is where I put most of my emacs-related files +(setq ff/emacs-dir "~/private/emacs") + ;; Give the focus to the emacs window if we are under a windowing ;; system @@ -73,8 +76,11 @@ ;; Activate the dynamic completion of buffer names (iswitchb-mode 1) +(unless (file-exists-p ff/emacs-dir) + (mkdir ff/emacs-dir)) + ;; Save the minibuffer history -(setq savehist-file "~/private/emacs/savehist") +(setq savehist-file (concat ff/emacs-dir "/savehist")) (when (functionp 'savehist-mode) (savehist-mode 1)) ;; And allow minibuffer recursion @@ -2275,7 +2281,7 @@ next one. With universal argument, kill all killable buffers." "\.bbl$" "\.aux$" "\.toc$" )) recentf-max-saved-items 1000 - recentf-save-file "~/private/emacs/recentf" + recentf-save-file (concat ff/emacs-dir "/recentf") ) (when (boundp 'recentf-keep) (add-to-list 'recentf-keep 'file-remote-p)) @@ -2311,7 +2317,7 @@ next one. With universal argument, kill all killable buffers." media/add-current-song-to-interrupted-when-killing t media/duration-to-history 30 media/history-size 1000 - media/playlist-file "~/private/emacs/media-playlists" + media/playlist-file (concat ff/emacs-dir "/media-playlists") media/mplayer/args '( "-framedrop" "-zoom" @@ -2731,9 +2737,9 @@ With argument ARG, do this that many times." ;; Where to save the bookmarks and where is bbdb -(setq bookmark-default-file "~/private/emacs/bmk" +(setq bookmark-default-file (concat ff/emacs-dir "/bmk") bbdb-file "~/private/bbdb" - custom-file "~/private/emacs/custom") + custom-file (concat ff/emacs-dir "/custom")) ;; enotes.el is one of my own scripts, check my web page