(global-set-key '[S-tab] 'hippie-expand)
(global-set-key '[S-iso-lefttab] 'hippie-expand)
(global-set-key "\C-cg" 'goto-line)

;;; Compilation things
(global-set-key '[f7] 'compile)
(let ((c (lambda nil (interactive) (compile compile-command))))
  (global-set-key '[C-f7] c)
  (global-set-key "\C-B" c) ; VS2005
  )
(global-set-key '[f4] 'next-error)
(global-set-key '[C-f4] '(lambda nil (interactive) (kill-buffer (current-buffer))))
(global-set-key '[C-f4] 'previous-error)