| New file |
| | |
|---|
| | | (provide 'setup-environment) |
|---|
| | | |
|---|
| | | (setq inhibit-startup-screen t) |
|---|
| | | |
|---|
| | | (setq savehist-additional-variables '(search ring regexp-search-ring) ; also save your regexp search queries |
|---|
| | | savehist-autosave-interval 60 ; save every minute |
|---|
| | | ) |
|---|
| | | |
|---|
| | | (winner-mode 1) |
|---|
| | | |
|---|
| | | (column-number-mode 1) |
|---|
| | | |
|---|
| | | ;; remove backup files |
|---|
| | | (when (eq system-type 'windows-nt) |
|---|
| | | (defadvice backup-buffer (after my-backup-make-hidden activate) |
|---|
| | | (let ((backup-file-name (make-backup-file-name (buffer-file-name)))) |
|---|
| | | (when (file-exists-p backup-file-name) |
|---|
| | | (call-process "attrib.exe" nil nil nil "+I" "+H" backup-file-name))))) |
|---|
