;; .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)