diff options
author | Martin Polden <mpolden@mpolden.no> | 2017-09-20 13:37:13 +0200 |
---|---|---|
committer | Martin Polden <mpolden@mpolden.no> | 2017-09-20 13:37:13 +0200 |
commit | 0b21e7279cb17a4d6cc7d334cafdb891963a222e (patch) | |
tree | 7de86d79685aa2b4a56387183e400f935ca43a1d /lisp/init-sane-defaults.el | |
parent | f806189426fe678bcf6a045f62c321da6430678d (diff) |
Backup files
Diffstat (limited to 'lisp/init-sane-defaults.el')
-rw-r--r-- | lisp/init-sane-defaults.el | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/lisp/init-sane-defaults.el b/lisp/init-sane-defaults.el index e4e9474..9edc346 100644 --- a/lisp/init-sane-defaults.el +++ b/lisp/init-sane-defaults.el @@ -2,13 +2,13 @@ (setq-default indent-tabs-mode nil) ;; make prompts accept y or n -(defalias 'yes-or-no-p 'y-or-n-p) +(defalias 'yes-or-no-p #'y-or-n-p) ;; no confirmation for non-existent files or buffers (setq confirm-nonexistent-file-or-buffer nil) ;; disable audible bell -(setq ring-bell-function 'ignore) +(setq ring-bell-function #'ignore) ;; scroll one line at a time (setq mouse-wheel-scroll-amount @@ -61,10 +61,18 @@ (setq-default fill-column 80) ;; confirm when exiting -(setq confirm-kill-emacs 'y-or-n-p) - -;; disable backup files -(setq make-backup-files nil) +(setq confirm-kill-emacs #'y-or-n-p) + +;; backup files +(setq make-backup-files t + backup-directory-alist `(("." . ,(expand-file-name "backup" + user-emacs-directory))) + backup-by-copying t + delete-old-versions t + version-control t + vc-make-backup-files t + kept-new-versions 6 + kept-old-versions 2) ;; preserve point position when scrolling (setq scroll-preserve-screen-position 'always) |