;; .edwin file from Albert R. Meyer 3/08/03 ((ref-command set-foreground-color) "gold") ((ref-command set-background-color) "navy blue") (set-variable! enable-recursive-minibuffers #t) (set-variable! select-buffer-create #f) (set-variable! version-control #t) (set-variable! kept-old-versions 0) (set-variable! kept-new-versions 5) (set-variable! buffer-menu-kill-on-quit #t) ;;from Chris Hanson March, 2003 (if (file-exists? "~/.edwin-abbrevs") (quietly-read-abbrev-file "~/.edwin-abbrevs")) (set-variable! save-abbrevs #t) (add-event-receiver! (ref-variable text-mode-hook) (lambda (buffer) (turn-on-auto-fill buffer) (enable-buffer-minor-mode! buffer (ref-mode-object abbrev)))) (define-key 'fundamental #\c-m-% 'query-replace-regexp) (define-key 'fundamental '(#\c-c #\l) 'goto-line) (define-key 'fundamental #\c-. 'repeat-complex-command) (define-key 'scheme #\m-q 'comment-fill-paragraph) (define-key 'scheme #\c-m-j 'indent-lisp-body) ;;end from Hanson (define-key 'fundamental #\m-[ 'backward-paragraph) (define-key 'fundamental #\m-] 'forward-paragraph)