;; emacs.rc -- initialization file for gnu-emacs
;; Author          : Edgar Roeder
;; Created On      : Mon Dec 11 01:46:40 1989
;; Last Modified By: unknown
;; Last Modified On: Fri Sep 27 01:24:16 1991
;; Update Count    : 36
;; Status          : ok

;; set some defaults
(setq completion-ignored-extensions	; add st-specific extensions
      (append '(".prg" ".tos" ".ttp"	; programs
		".acc" ".app" ".mmx"	; other executables
		".rsc"			; resources
		".olb" ".lib"		; object code libraries
		".bak"			; backup files
		".arc" ".lzh" ".zoo"	; packed archives
		".pic" ".doo" ".spc" ".neo"
		".pi1" ".pi2" ".pi3"	; picture files
		)
	      completion-ignored-extensions))
(setq default-major-mode 'text-mode)
(setq-default c-mode-hook
	      '(lambda ()		; for C mode:
		 (turn-on-auto-fill)	; use auto-fill
		 (defvar fill-loaded nil)
		 (if fill-loaded nil
		   (load-library "c-fill") ; load c-comment
		   (setq fill-loaded t)))) ; (only once!)

(setq ctl-arrow "dummy")		   ; set to non nil/t for 8-bit chars


;; define function keys term/atari.el
(load "/dev/D/gnu/e-lisp/term/atari.el")
;; load mess-dos-mode
(load "/dev/D/gnu/e-lisp/st/dos-mode.el")

(defun toggle-dos-mode () 
     (interactive)
     (setq dos-mode (not dos-mode))
     (set-buffer-modified-p (buffer-modified-p)))

(setq meta-flag 't)

;; define utility functions
;
;
(defun show-matching-paren (arg)
  "Act as if a close-paren had been self-inserted."
  (interactive "p")
  (forward-char)
  (blink-matching-open)
  (backward-char))

(defun display-mem ()
  (interactive)
  (message "Memory usage: %d bytes free, %d bytes used (%d%%)"
	   data-bytes-free data-bytes-used
	   (/ (* data-bytes-used)
	      (/ (+ data-bytes-used data-bytes-free) 100))))

;; personalize the keypad key bindings
;       Must be done after (load 'term/atari.el)
(define-key function-keymap  "\C-a" 'display-mem)     ; F1  key 
(define-key function-keymap  "\C-b" 'goto-line)       ; F2  key
(define-key function-keymap  "\C-c" 'what-line)       ; F3  key
(define-key function-keymap  "\C-j" 'toggle-dos-mode) ; F10 key
(define-key function-keymap  "I"    'overwrite-mode)  ; Insert key

(put 'eval-expression 'disabled nil)