&tag(Emacs/バックアップ);
(defvar backup-dir "~/.emacs.d/backup/")
(when (not (file-directory-p backup-dir))
(make-directory backup-dir t))
(setq backup-directory-alist `(("." . ,backup-dir)))
(setq auto-save-file-name-transforms `((".*" ,backup-dir t)))
(setq vc-make-backup-files t)