 (global-set-key [f7] 'save-buffer)
 (global-set-key [f8] 'save-buffers-kill-emacs)
 ; (define 'set-tabs-of-4 (set-variable 'tab-width 4))
-; (global-set-key [f9] 'set-tabs-of-4)
-(global-set-key [f9] 'cperl-mode)
+(defun set-tabs-of-4 () (interactive) (set-variable 'tab-width 4))
+(global-set-key [f9] 'set-tabs-of-4)
+; (global-set-key [f9] 'cperl-mode)
 (global-set-key [f10] 'fundamental-mode)
 (global-set-key [f11] 'text-mode)
 ; (global-set-key [SunF36] 'enlarge-window)

(set-variable 'next-line-add-newlines ())
(line-number-mode "1")
;; (tool-bar-mode)

(custom-set-variables
  ;; custom-set-variables was added by Custom.

  ;; If there is more than one, they won't work right.
 '(default ((t (:inherit nil :stipple nil :background "white" :foreground "black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :foundry "unknown" :family "DejaVu Sans Mono")))))

;; disable vc-git
(setq vc-handled-backends ())

;; :weight bold

;; Turn off annoying splash screen
(setq inhibit-splash-screen t)
