From: tdunbar@vttcf.cc.vt.edu (Thomas Dunbar)
Newsgroups: comp.os.linux
Subject: Re: .emacs for x11emacs and Epoch
Date: 9 Sep 92 02:12:31 GMT
Organization: Virginia Tech, Blacksburg, VA


 here's a .emacs file that i use for both x11emacs and Epoch..the epoch stuff
is, except for a few X keybindings, mostly for viewer (Marlet's fancy TeX 
abbrev & symbol viewing package for 8bit Emacs).
  Epoch wont do some of the things Lucid does; however, it supports 8bit better
and is compatible with std elisp packages (e.g. Gillispie's Calc symbolic math
package). a linux binary is posted at sunsite.unc.edu for X1.1&gcc 2.2.2 which
runs under gcc2.2.2d and X2.0 provided one has the old libs.
 
; .emacs for x11emacs and Epoch- tdunbar@vttcf.cc.vt.edu
(setq text-mode-hook 'turn-on-auto-fill)
(setq make-backup-files nil) 
(put 'eval-expression 'disabled nil) 


(setq auto-mode-alist (mapcar 'purecopy
			      '(("\\.c$" . c-mode)
				("\\.h$" . c-mode)
				("\\.tex$" . tex-mode)
        			("\\.el$" . emacs-lisp-mode)
				("\\.a$" . c-mode))))

(defvar cursor-map-1 (make-keymap)
"for ESC-O")
(fset 'Cursor-Map-1 cursor-map-1)
(define-key esc-map "O" 'Cursor-Map-1)


(defvar cursor-map-2 (make-keymap)
"for ESC-[")
(fset 'Cursor-Map-2 cursor-map-2)
(define-key esc-map "[" 'Cursor-Map-2)

(define-key esc-map "OA" 'previous-line)
(define-key esc-map "OB" 'next-line)
(define-key esc-map "OC" 'forward-char)
(define-key esc-map "OD" 'backward-char)
(define-key esc-map "[23~" 'math-mode-help)
(define-key esc-map "[24~" 'math-mode)
(define-key esc-map "[5~" 'scroll-down)
(define-key esc-map "[6~" 'scroll-up)
(define-key esc-map "[11~" 'help-for-help)
(define-key esc-map "[12~" 'scroll-other-window) 
(define-key esc-map "[13~" 'isearch-forward)
(define-key esc-map "[14~" 'query-replace-regexp)
(define-key esc-map "[15~" 'calc-dispatch)
(define-key esc-map "[17~" 'calc-embedded)
(define-key esc-map "[18~" 'load-library)
(define-key esc-map "[19~" 'buffer-menu)
(define-key esc-map "[20~" 'save-buffer)
(define-key esc-map "[21~" 'save-buffers-kill-emacs)
(define-key esc-map "[2~" 'set-mark-command)
(define-key global-map "\C-h" 'delete-backward-char)
(define-key esc-map "Ow" 'beginning-of-buffer)
(define-key esc-map "Oq" 'end-of-buffer)



(autoload 'calc-dispatch "calc" "Calculator Options" t)
(autoload 'calc-grab-region "calc" "grab region of calc data" t)
(autoload 'calc-grab-rectangle "calc" "grab rectangle of calc data" t)
(autoload 'calc-embedded "calc" "Calculator in any buffer" t)






;;; Mode settings stored by Calc on Sun Aug 23 17:50:29 1992
(setq calc-complex-format 'i)
(setq calc-angle-mode 'rad)
(setq calc-algebraic-mode 'total)
(setq calc-language 'tex)
;;; End of mode settings



(if (boundp 'epoch::version) 
 (progn (rebind-key "Prior" nil "\M-v")
        (rebind-key "Next" nil "\C-v") 
        (rebind-key "Home" nil "\C-a")
        (rebind-key "End" nil "\C-e")
 
        (load "viewer/autoload")
;        (load "etc/decor")

        (setq LaTeX::decor-preset t)
        (setq fmath-mode-user-context-map
             '(("s" "@" "\345_{i=}^{}")))
        (setq viewer::TeX-ext t)
        (setq LaTeX::viewer-user-context-map
             '(
               ("\275" "c" "\275{corollary}")
               ("\275" "d" "\275{definition}")
               ("\275" "D" "\275{description}")
               ("\275" "l" "\275{lemma}")
               ("\275" "p" "\275{property}")
               ("\275" "P" "\275{proof}")
               ("\275" "t" "\275{theorem}")
               ))
  )
)