(setq inhibit-startup-message t)		; prevents emacs startup msg
(server-start) ; starts emacs as a "server" so other programs
               ; can look at the EDITOR env variable and open buffers
               ; in my main emacs window

(load-file "~/.emacs.macros")
(load-file "~/.emacs.outline")
;(load-file "~/.emacs.local")
(load-file "~/.emacs.font-lock")

(global-set-key "\C-h" 'delete-backward-char) 
(global-set-key "\M-h" 'help-for-help) 
(global-set-key "\M-g" 'goto-line) 
(global-set-key "\M-[ D" 'backward-char)
(global-set-key "\C-o" 'dabbrev-expand)
(global-set-key "\C-t" 'find-tag)
(global-set-key "\C-xt" 'transpose-chars) ;; used to be C-t
(global-set-key "\C-xm" 'mh-smail)
(global-set-key [home] 'beginning-of-buffer)
(global-set-key [end]  'end-of-buffer)
(global-set-key "\C-j"  esc-map) ;; so C-j works like escape

(setq my-mode-map (make-keymap 'my-keymap))
(define-key my-mode-map "b" 'bbdb-create)
(define-key my-mode-map "c" 'format-iel-conf)
(define-key my-mode-map "d" 'delete-whitespace)
(define-key my-mode-map "g" 'grep)
(define-key my-mode-map "v" 'describe-variable)
(define-key my-mode-map "r" 'vm)
(define-key my-mode-map "h" 'help)
(define-key my-mode-map "l" 'load-file)
(define-key my-mode-map "e" 'reload-dot-emacs-file)
(define-key my-mode-map "f" 'forward-sexp)
(define-key my-mode-map "j" 'format-iel-jour)
(define-key my-mode-map "t" 'visit-things-to-do)
(define-key my-mode-map "\C-d" 'visit-things-done)
(define-key my-mode-map "\C-q" 'quoted-insert)
(define-key my-mode-map "m" 'manual-entry)
(define-key my-mode-map "s" 'my-time-stamp)
(define-key my-mode-map "\C-s" 'search-forward-regexp)
(define-key my-mode-map "x" 'toggle-read-only)
(define-key my-mode-map "w" 'count-stuff-in-region)
(define-key my-mode-map "%" 'query-replace-regexp)
(define-key global-map "\C-q" my-mode-map) ;; C-q used to be quoted-insert

(add-hook 'matlab-mode-hook 'setup-my-matlab-style)
(add-hook 'octave-mode-hook 'setup-my-matlab-style)
(add-hook 'outline-mode-hook 'setup-my-outline-style)
(add-hook 'mail-setup-hook 'turn-on-auto-fill)
(add-hook 'mh-letter-mode-hook 'turn-on-auto-fill)
(add-hook 'mh-before-send-letter-hook 'ask-me-before-sending-mail)
(add-hook 'mail-send-hook 'ask-me-before-sending-mail)
(add-hook 'tcl-mode-hook 'setup-my-tcl-style)
(add-hook 'c-mode-hook 'setup-my-c-style)
(add-hook 'c++-mode-hook 'setup-my-c-style)
(add-hook 'latex-mode-hook 'setup-my-latex-style)
(add-hook 'records-mode-hook 'turn-on-auto-fill)

;; other cool keys to use are \C-w --> cut region
;;                            \C-space --> set mark
;;                            \C-a --> beggining of line
;;                            \C-e --> end of line
;;                            C-x C-t transpose lines
;;                            C-j newline and indent
;;			      C-x C-o delete blank lines
;;                            redo-complex-command
;;                            C-x r ... ;; rectangle commands
;;			      C-[ is bound to ESC
;;			      Alt is bound to ESC
;;                            C-x x x copies to register
;;                            C-x g yank from register
;;			      M-d is bound to kill-word
;; Location: 37:52:18N 122:16:18W

(display-time)

(require 'python-mode)

(setq gnus-select-method '(nntp "NEWS1.ALTERDIAL.UU.NET"))

(setq c-macro-prompt-flag 't)
(setq 	compile-command "gmake "
	auto-save-default t
	auto-save-interval 100
	fill-column 75
	comment-column 4
	line-number-mode t)

(autoload 'c++-mode "cc-mode" "C++ Editing Mode" t)
(autoload 'c-mode   "cc-mode" "C Editing Mode" t)

(setq auto-mode-alist
      (append '(("\\.m$"  . octave-mode)
		("\\.C$"  . c++-mode)
		("\\.cc$" . c++-mode)
		("\\.hh$" . c++-mode)
		("\\.c$"  . c-mode)   ; to edit C code
		("\\.h$"  . c++-mode)   ; to edit C code
		("\\Makefile*" . makefile-mode)
		("\\.tex" . latex-mode)
		("\\.outline$" . outline-mode)
		("\\.py$" . python-mode)
		) auto-mode-alist))

(put 'eval-expression 'disabled nil)

; Hook up to the calendar mode
(add-hook 'calendar-load-hook 
          (function
           (lambda ()
             (define-key calendar-mode-map "n" 'records-calendar-to-record))))

;;;; end records-mode