home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / os / linux / 10311 < prev    next >
Encoding:
Text File  |  1992-09-09  |  3.6 KB  |  114 lines
  1. Path: sparky!uunet!vtserf!vttcf.cc.vt.edu!tdunbar
  2. From: tdunbar@vttcf.cc.vt.edu (Thomas Dunbar)
  3. Newsgroups: comp.os.linux
  4. Subject: Re: .emacs for x11emacs and Epoch
  5. Message-ID: <6608@vtserf.cc.vt.edu>
  6. Date: 9 Sep 92 02:12:31 GMT
  7. Sender: news@vtserf.cc.vt.edu
  8. Organization: Virginia Tech, Blacksburg, VA
  9. Lines: 103
  10.  
  11.  
  12.  here's a .emacs file that i use for both x11emacs and Epoch..the epoch stuff
  13. is, except for a few X keybindings, mostly for viewer (Marlet's fancy TeX 
  14. abbrev & symbol viewing package for 8bit Emacs).
  15.   Epoch wont do some of the things Lucid does; however, it supports 8bit better
  16. and is compatible with std elisp packages (e.g. Gillispie's Calc symbolic math
  17. package). a linux binary is posted at sunsite.unc.edu for X1.1&gcc 2.2.2 which
  18. runs under gcc2.2.2d and X2.0 provided one has the old libs.
  19.  
  20. ; .emacs for x11emacs and Epoch- tdunbar@vttcf.cc.vt.edu
  21. (setq text-mode-hook 'turn-on-auto-fill)
  22. (setq make-backup-files nil) 
  23. (put 'eval-expression 'disabled nil) 
  24.  
  25.  
  26. (setq auto-mode-alist (mapcar 'purecopy
  27.                   '(("\\.c$" . c-mode)
  28.                 ("\\.h$" . c-mode)
  29.                 ("\\.tex$" . tex-mode)
  30.                     ("\\.el$" . emacs-lisp-mode)
  31.                 ("\\.a$" . c-mode))))
  32.  
  33. (defvar cursor-map-1 (make-keymap)
  34. "for ESC-O")
  35. (fset 'Cursor-Map-1 cursor-map-1)
  36. (define-key esc-map "O" 'Cursor-Map-1)
  37.  
  38.  
  39. (defvar cursor-map-2 (make-keymap)
  40. "for ESC-[")
  41. (fset 'Cursor-Map-2 cursor-map-2)
  42. (define-key esc-map "[" 'Cursor-Map-2)
  43.  
  44. (define-key esc-map "OA" 'previous-line)
  45. (define-key esc-map "OB" 'next-line)
  46. (define-key esc-map "OC" 'forward-char)
  47. (define-key esc-map "OD" 'backward-char)
  48. (define-key esc-map "[23~" 'math-mode-help)
  49. (define-key esc-map "[24~" 'math-mode)
  50. (define-key esc-map "[5~" 'scroll-down)
  51. (define-key esc-map "[6~" 'scroll-up)
  52. (define-key esc-map "[11~" 'help-for-help)
  53. (define-key esc-map "[12~" 'scroll-other-window) 
  54. (define-key esc-map "[13~" 'isearch-forward)
  55. (define-key esc-map "[14~" 'query-replace-regexp)
  56. (define-key esc-map "[15~" 'calc-dispatch)
  57. (define-key esc-map "[17~" 'calc-embedded)
  58. (define-key esc-map "[18~" 'load-library)
  59. (define-key esc-map "[19~" 'buffer-menu)
  60. (define-key esc-map "[20~" 'save-buffer)
  61. (define-key esc-map "[21~" 'save-buffers-kill-emacs)
  62. (define-key esc-map "[2~" 'set-mark-command)
  63. (define-key global-map "\C-h" 'delete-backward-char)
  64. (define-key esc-map "Ow" 'beginning-of-buffer)
  65. (define-key esc-map "Oq" 'end-of-buffer)
  66.  
  67.  
  68.  
  69. (autoload 'calc-dispatch "calc" "Calculator Options" t)
  70. (autoload 'calc-grab-region "calc" "grab region of calc data" t)
  71. (autoload 'calc-grab-rectangle "calc" "grab rectangle of calc data" t)
  72. (autoload 'calc-embedded "calc" "Calculator in any buffer" t)
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79. ;;; Mode settings stored by Calc on Sun Aug 23 17:50:29 1992
  80. (setq calc-complex-format 'i)
  81. (setq calc-angle-mode 'rad)
  82. (setq calc-algebraic-mode 'total)
  83. (setq calc-language 'tex)
  84. ;;; End of mode settings
  85.  
  86.  
  87.  
  88. (if (boundp 'epoch::version) 
  89.  (progn (rebind-key "Prior" nil "\M-v")
  90.         (rebind-key "Next" nil "\C-v") 
  91.         (rebind-key "Home" nil "\C-a")
  92.         (rebind-key "End" nil "\C-e")
  93.  
  94.         (load "viewer/autoload")
  95. ;        (load "etc/decor")
  96.  
  97.         (setq LaTeX::decor-preset t)
  98.         (setq fmath-mode-user-context-map
  99.              '(("s" "@" "\345_{i=}^{}")))
  100.         (setq viewer::TeX-ext t)
  101.         (setq LaTeX::viewer-user-context-map
  102.              '(
  103.                ("\275" "c" "\275{corollary}")
  104.                ("\275" "d" "\275{definition}")
  105.                ("\275" "D" "\275{description}")
  106.                ("\275" "l" "\275{lemma}")
  107.                ("\275" "p" "\275{property}")
  108.                ("\275" "P" "\275{proof}")
  109.                ("\275" "t" "\275{theorem}")
  110.                ))
  111.   )
  112. )
  113.  
  114.