;; fix backspace key
;;
(define-key global-map "\C-h" 'backward-delete-char)
(define-key global-map "\M-h" 'help)

;; put autosave files (#$x#) in ~/.emacs.d/files-autosave/
;;
(defvar autosave-dir (concat "/Users/" (user-login-name) "/.emacs.d/files-autosave/"))
(make-directory autosave-dir t)
(defun auto-save-file-name-p (filename) (string-match "^#.*#$" (file-name-nondirectory filename)))
(defun make-auto-save-file-name () (concat autosave-dir (if buffer-file-name (concat "#" (file-name-nondirectory buffer-file-name) "#") (expand-file-name (concat "#%" (buffer-name) "#")))))

;; put backup files ($x~) in ~/.emacs.d/files-backup/
;;
(defvar backup-dir (concat "/Users/" (user-login-name) "/.emacs.d/files-backup/"))
(setq backup-directory-alist (list (cons "." backup-dir)))