 (setq frame-title-format '("Emacs @ " system-name ": %b %+%+ %f"))
 (setq bookmark-save-flag 1)
 (setq scroll-margin 2)
+(setq tab-width 4)
+(setq undo-limit 1000000)
+(setq undo-strong-limit 2000000)
 
 	
 (custom-set-faces

;;(load-file "~/.emacs.d/emacs-for-python/epy-init.el")

(add-to-list 'load-path "~/.emacs.d/")
(add-to-list 'load-path "~/.emacs.d/plugins/")
(add-to-list 'load-path "~/.emacs.d/ecb-snap/")
;;(add-to-list 'load-path "~/.emacs.d/cedet-1.0.1/")
(load-file "~/.emacs.d/emacs-for-python/epy-init.el")

;;(require 'ido)
;;(ido-mode t)

;;(global-set-key [mouse-4] 'scroll-down-in-place)
;;(global-set-key [mouse-5] 'scroll-up-in-place)
(global-set-key [C-up] 'scroll-down-in-place)
(global-set-key [C-down] 'scroll-up-in-place)


;; Backups

; return a backup file path of a give file path
; with full directory mirroring from a root dir
; non-existant dir will be created
(defun my-backup-file-name (fPath)
  "Return a new file path of a given file path.
If the new path's directories does not exist, create them."
  (let (backup-root bpath)
    (setq backup-root "~/.emacs.d/emacs-backup")
    (setq bpath (concat backup-root fPath "~"))
    (make-directory (file-name-directory bpath) bpath)
    bpath
  )
)
(setq make-backup-file-name-function 'my-backup-file-name)
(setq version-control t) ; make numbered backups
(setq backup-by-copying t)
