(define-key global-map "\M-:" 'goto-line)
(define-key global-map "\C-h" 'backward-delete-char-untabify)
(global-set-key [f1] 'goto-line)
(global-set-key [f2] 'isearch-forward)
(global-set-key [f3] 'find-file)
(global-set-key [f4] 'save-buffer)

(global-set-key [\C-left] 'backward-word)
(global-set-key [\C-right] 'forward-word)
(global-set-key [\S-left] 'beginning-of-line)
(global-set-key [\S-right] 'end-of-line)

(global-set-key [delete] 'delete-char)
(global-set-key [\C-delete] 'kill-word)
(global-set-key [\C-backspace] 'backward-kill-word)

(global-set-key [f14] 'undo)                       ;; this is the UNDO key


;;;
;;; GDB
;;;

(global-set-key [f5] 'gud-down)
(global-set-key [f6] 'gud-up)
(global-set-key [f7] 'gud-step)
(global-set-key [f8] 'gud-next)

;;;
;;; MACROS
;;;

(fset 'compile-my-program
   [21 -8388488 99 111 109 112 105 108 101 return return])

(fset 'get-shell
   [21 -8388488 115 104 101 108 108 return])

(global-set-key [f9] 'get-shell)
(global-set-key [f10] 'compile-my-program)
(global-set-key [f35] 'mail)                       ;; this is really f11
(global-set-key [f36] 'execute-extended-command)   ;; this is really f12, the same as M-x

;;;
;;; C++ MODE STUFF
;;;


(load "~/.cc-mode.elc")

(defun add-mode (fname mode)
  (setq auto-mode-alist (cons (cons fname mode) auto-mode-alist)))

(add-mode "\\.cc$" 'c++-mode)
(add-mode "\\.C$" 'c++-mode)
(add-mode "\\.H$" 'c++-mode)
(add-mode "\\.hh$" 'c++-mode)
(add-mode "\\.h$" 'c++-mode)
(add-mode "Makefile" 'makefile-mode)

(setq default-major-mode 'text-mode)

(setq-default indent-tabs-mode nil)

;; hilit19 stuff
(cond (window-system
        (setq hilit-mode-enable-list  '(not text-mode)
              hilit-quietly           t
              hilit-background-mode   'light
              hilit-inhibit-hooks     nil
              hilit-inhibit-rebinding nil)
        (require 'hilit19)))


(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)

(load "tex-site.el")
;; (load "html-mode.el")

(setq-default fill-column 77)

;; mail stuff

(setq-default mail-archive-file-name "~/sent-mail")
(setq-default mai