(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)))))