; Jon's emacs init file ; set formatting variables (setq tab-width 3) (setq fill-column 72) (setq text-mode-hook '(lambda () (auto-fill-mode 1))) (put 'eval-expression 'disabled nil) ; unset this sequence so it can be used as a prefix (global-unset-key "[") ; bind some useful functions to easily remembered keystrokes ; these are GLOBAL, i.e., they apply to all buffers (global-set-key "" 're-search-backward) (global-set-key "" 're-search-forward) (global-set-key "" 'find-file-other-window) (global-set-key "l" 'downcase-word) (global-set-key "c" 'capitalize-word) (global-set-key "u" 'upcase-word) (global-set-key "q" 'query-replace) (global-set-key "R" 'replace-regexp) (global-set-key "r" 'replace-string) (global-set-key "f" 'fill-paragraph) (global-set-key "m" 'set-mark-command) (global-set-key "" 'redraw-display) (global-set-key "" 'delete-backward-char) ; set the function keys to my favorite utilities (define-key global-map [f1] 'start-kbd-macro) (define-key global-map [f2] 'end-kbd-macro) (define-key global-map [f3] 'call-last-kbd-macro) (define-key global-map [f4] 'undo) (define-key global-map [f5] 'fill-paragraph) (define-key global-map [f6] 'what-line) (define-key global-map [f7] 'goto-line) (define-key global-map [f8] 'text-mode) (define-key global-map [f9] 'beginning-of-line) (define-key global-map [f10] 'backward-word) (define-key global-map [f11] 'forward-word) (define-key global-map [f12] 'end-of-line) (define-key global-map [M-f1] 'kill-buffer)