(global-set-key (kbd "<kp-begin>") 'mark-defun)
(global-set-key (kbd "<kp-right>") 'ibuffer)
(global-set-key (kbd "<kp-prior>") 'delete-horizontal-space)
+
+
+;; give us a shell to start instead of scratch
+;;(setq initial-buffer-choice (lambda () (new-shell)))