diff options
| author | Thomas Schneider <qsx@chaotikum.eu> | 2021-07-13 18:24:07 +0200 |
|---|---|---|
| committer | Thomas Schneider <qsx@chaotikum.eu> | 2021-07-13 18:24:07 +0200 |
| commit | ea1e5beac96ab839dc99b71e5d3dda9468a1752a (patch) | |
| tree | f9064436878d8e8e4e4ba7a27fd9cc9594a164d0 /dot.emacs.d/init.el | |
| parent | 8ee5e4161e090a89dc1af0ea35fe895a72d399dd (diff) | |
Emacs: Tidy backup-directory-alist handling
Diffstat (limited to 'dot.emacs.d/init.el')
| -rw-r--r-- | dot.emacs.d/init.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el index 727f286..7dfe26d 100644 --- a/dot.emacs.d/init.el +++ b/dot.emacs.d/init.el @@ -12,10 +12,10 @@ (setq use-package-always-ensure t use-package-verbose t) -(defvar --backup-directory (concat user-emacs-directory "backups")) -(if (not (file-exists-p --backup-directory)) - (make-directory --backup-directory t)) -(setq backup-directory-alist `(("." . ,--backup-directory))) +(let ((--backup-directory (concat user-emacs-directory "backups"))) + (unless (file-exists-p --backup-directory) + (make-directory --backup-directory t)) + (setq backup-directory-alist `(("." . ,--backup-directory)))) (setq make-backup-files t ; backup of a file the first time it is saved. backup-by-copying t ; don't clobber symlinks version-control t ; version numbers for backup files |