;; Allow us to use esc-esc
(put 'eval-expression 'disabled nil)
;; bind incremental search to C-] to avoid x-off problem 
;(setq search-repeat-char '?\C-])  

(global-set-key "\C-h" 'delete-backward-char)
(global-set-key "\e\C-h" 'kill-backward-word)

(global-set-key "\C-]" 'isearch-forward-regexp)    ;; works better
;(global-set-key "\C-s" 'isearch-forward-regexp)   ;; ** TM **, cannot continue

(global-set-key "\C-r" 'isearch-backward-regexp)
(global-set-key "\C-xc" 'center-line)
(global-set-key "\C-xs" 'save-buffer)
(global-set-key "\C-x\C-s" 'save-some-buffers)
;;(global-set-key "\C-xf" 'find-file-other-window)

;(global-set-key "\C-\ " 'set-mark-command)         ;; **TM**, does not work
;(global-set-key "\C-SPC " 'set-mark-command)       ;; **TM**, does not work
(global-set-key "\em" 'set-mark-command)            ;; **TM**, works
;(global-set-key "\C-x\C-m" 'set-mark-command)       ;; **TM**, works
(global-set-key "\C-xm" 'set-mark-command)          ;; **TM**, works
(global-set-key "\eg" 'goto-line)                   ;; **TM**
(global-set-key "\C-x\C-a" 'command-apropos)        ;; **TM**
(global-set-key "\C-xa" 'command-appropos)          ;; **TM**, works
(global-set-key "\eh" 'help-for-help)               ;; **TM**
;(global-set-key "\C-x\C-f" 'fill-paragraph)         ;; **TM** 
;(global-set-key "\C-\C-m" 'describe-mode)           ;; **TM** 
;(global-set-key "\C\!" 'shell-command)             ;; **TM** causes error

;; make sure emacs searches my directory first
(setq load-path (cons "/u1/russ/gnuemacs" load-path))
(setq text-mode-hook 'turn-on-auto-fill)
;;(setq trim-versions-without-asking t)
;;(setq kept-old-versions '1)
(setq auto-save-interval '100)
(setq default-fill-column '78)
(setq scroll-step 5)
(global-set-key "\^Xt" 'insert-time)
(global-set-key "\^X." 'zap-to-char)
(global-set-key "\e!" 'line-to-top-of-window)
(global-set-key "\eq" 'query-replace-regexp)
(global-set-key "\er" 'replace-string)
;; turn on Jim Bennett's 2-window rmail mode
;(setq rmail-two-window-mode t)
;; customize rmail
;(setq rmail-delete-after-output t)
;(setq mail-self-blind t)
; default to text-mode
(setq default-major-mode 'text-mode)
(setq inhibit-load-default t)
(setq default-case-fold-search nil)
(put 'narrow-to-region 'disabled nil)

(global-set-key "\C-xw" 'write-region)