 
   ;; This is just to avoid tabsize-variations fuck-up.
   (make-local-variable 'indent-tabs-mode)
+  (setq indent-tabs-mode)
+
+  (setq dabbrev-case-fold-search t)
+  (setq dabbrev-case-replace nil)
 
   (setq mode-line-process '("" picolisp-mode-line-process))
   (set (make-local-variable 'font-lock-defaults)

;;;;;; picolisp-mode: Major mode to edit picoLisp.
;;;;;; Version: 1.1

;;; Copyright (c) 2009, Guillermo R. Palavecino


                      "balance" "get" "fill" "apply" "range"
                      ;; Control Flow
                      "load" "args" "next" "arg" "rest" "pass" "quote" "as" 
                      "pid" "lit" "eval" "run" "macro" "curry" "def" "de" "dm" 
                      "recur" "recurse" "undef" "box" "new" "type" "isa" 
                      "method" "meth" "send" "try" "super" "extra" "with" 
                      "bind" "job" "let" "let?" "use" "xor" "bool" "nil" "t"
                      "prog" "at" "catch" "throw" "finally" "!" "e" "$" "sys"
                      "call" "tick" "ipid" "opid" "kill" "quit" "task" "fork"
                      "pipe" "later" "timeout" "abort" "bye"
                      ;; Mapping
                      "apply" "pass" "maps" "map" "mapc" "maplist" "mapcar" 
                      "mapcon" "mapcan" "filter" "extract" "seek" "find" "pick" 
