     (interactive)
     ; if current column is at beginning of line or not on a tab stop
     ; or if the previous character is "\t"
-    (if (or (bolp) (/= 0 (% (current-column) my-indent)) 
+    (if (or (bolp) (/= 0 (% (current-column) my-indent))
             (string= (string (char-before)) "\t")
     )
-    
+
     ;then
         (delete-backward-char 1)
     ;else
         ; we are on a non-zero tabstop, compute the previous tabstop
         (setq last-tabstop (- (current-column) my-indent))
         ; if there are only spaces and/or tabs between the cursor and last tabstop
-        (if (and (string-match "[ \t]*" (thing-at-point 'line t) last-tabstop) 
+        (if (and (string-match "[ \t]*" (thing-at-point 'line t) last-tabstop)
                  (>= (match-end 0) (current-column))
             )
         ;then

(setq-default electric-indent-inhibit t)

;;
;; general settings
;;

(setq-default require-final-newline t)
(setq-default delete-trailing-lines nil)
(setq auto-save-default nil)
(setq-default make-backup-files nil)
;(setq-default cursor-type '(bar . 1))
(setq-default cursor-type 'box)
(setq-default blink-cursor-blinks 0)

;; 
;; Minor mode
;; 

(global-set-key (kbd "TAB") 'tab-to-tab-stop)


(add-hook 'minibuffer-setup-hook 'my-minor-off-hook)

(add-hook 'term-mode-hook 'my-minor-off-hook)

;;
;; Themes
;;
(if (eq system-type 'windows-nt)
    (set-face-attribute 'default nil :family "Consolas" :height 100)
    (set-face-attribute 'default nil :family "DejaVu Sans" :height 100)
)

;;
;; Emacs custom set
