| @@ -718,13 +718,15 @@ found, otherwise returns nil." | |||||
| ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260 | ;; http://www.bookshelf.jp/soft/meadow_24.html#SEC260 | ||||
| (setq make-backup-files t) | (setq make-backup-files t) | ||||
| (setq vc-make-backup-files t) | |||||
| ;; (make-directory (expand-file-name "~/.emacsbackup")) | ;; (make-directory (expand-file-name "~/.emacsbackup")) | ||||
| (setq backup-directory-alist | (setq backup-directory-alist | ||||
| (cons (cons "." (expand-file-name (concat user-emacs-directory | (cons (cons "." (expand-file-name (concat user-emacs-directory | ||||
| "backup"))) | |||||
| "backup"))) | |||||
| backup-directory-alist)) | backup-directory-alist)) | ||||
| (setq version-control 'never) | |||||
| (setq version-control 't) | |||||
| (setq delete-old-versions t) | (setq delete-old-versions t) | ||||
| (setq kept-new-versions 20) | |||||
| (setq auto-save-list-file-prefix (expand-file-name (concat user-emacs-directory | (setq auto-save-list-file-prefix (expand-file-name (concat user-emacs-directory | ||||
| "auto-save/"))) | "auto-save/"))) | ||||