(define-key global-map [f1] 'zwgc-punt)
(define-key global-map [f2] 'daveg-work-email)
(define-key global-map [f3] 'other-window)
(define-key global-map [f7] 'switch-to-buffer)
;(define-key global-map [f8] 'switch-to-buffer)
(define-key global-map [f9] 'compile)
(define-key global-map [f10] 'next-error)
(define-key global-map [f11] 'switch-to-gnus)
(define-key global-map [f12] 'switch-to-shell)
(define-key global-map [home] 'beginning-of-line)
(define-key global-map [end] 'end-of-line)
(define-key global-map [\S-tab] 'hippie-expand)
(define-key global-map [C-left] 'backward-word)
(define-key global-map [C-right] 'forward-word)
(define-key global-map [C-end]  'end-of-buffer)
(define-key global-map [C-home] 'beginning-of-buffer)
(define-key global-map [C-prior] '(lambda () (interactive)
				    (move-to-window-line 0)))
(define-key global-map [C-next] '(lambda () (interactive)
				   (move-to-window-line -1)))
(define-key global-map [M-backspace] 'undo)

(global-set-key "\C-cg" 'goto-line)
(global-set-key "\M-%" 'query-replace-regexp)
(global-set-key "\C-z" 'zwgc-mode-map)
(global-set-key "\M-t" 'make-t)
(global-set-key "\M-n" 'make-nil)
(global-set-key "\C-ch" 'help-command)
(global-set-key "\C-v" 'scroll-up-in-place)
(global-set-key "\M-v" 'scroll-down-in-place)
(global-set-key "\M-g" 'goto-line)
(global-set-key "\M-a" 'athena-path)
(global-set-key "\M-r" 'reload-file)
(global-set-key "\C-x\C-c" 'query-quit-emacs)
(global-set-key "\C-x\C-b" 'electric-buffer-list)
; ^X^Z is suspend in terminal mode, iconify in windows.  should handle
; both....
;(global-set-key "\C-x\C-z" 'query-suspend-emacs) 

(define-key 'help-command "a" 'apropos)

; The preferred binding for records-goto-today - uncomment to use it
(define-key global-map [?\C-c ?n] 'records-goto-today)
(define-key global-map [?\C-c ?-] 'records-underline-line)

; The Ctrl-x n map
(define-key global-map [?\C-x ?n ?t] 'records-goto-today)
(define-key global-map [?\C-x ?n ?r] 'records-insert-record-region)
(define-key global-map [?\C-x ?n ?b] 'records-insert-record-buffer)
(define-key global-map [?\C-x ?n ?l] 'records-insert-link)