home *** CD-ROM | disk | FTP | other *** search
/ Computer Club Elmshorn Atari PD / CCE_PD.iso / pc / 0400 / CCE_0410.ZIP / CCE_0410.PD / EMACS_58.ZOO / examples / emacs.rc next >
Lisp/Scheme  |  1992-07-14  |  2KB  |  71 lines
  1. ;; emacs.rc -- initialization file for gnu-emacs
  2. ;; Author          : Edgar Roeder
  3. ;; Created On      : Mon Dec 11 01:46:40 1989
  4. ;; Last Modified By: unknown
  5. ;; Last Modified On: Fri Sep 27 01:24:16 1991
  6. ;; Update Count    : 36
  7. ;; Status          : ok
  8.  
  9. ;; set some defaults
  10. (setq completion-ignored-extensions    ; add st-specific extensions
  11.       (append '(".prg" ".tos" ".ttp"    ; programs
  12.         ".acc" ".app" ".mmx"    ; other executables
  13.         ".rsc"            ; resources
  14.         ".olb" ".lib"        ; object code libraries
  15.         ".bak"            ; backup files
  16.         ".arc" ".lzh" ".zoo"    ; packed archives
  17.         ".pic" ".doo" ".spc" ".neo"
  18.         ".pi1" ".pi2" ".pi3"    ; picture files
  19.         )
  20.           completion-ignored-extensions))
  21. (setq default-major-mode 'text-mode)
  22. (setq-default c-mode-hook
  23.           '(lambda ()        ; for C mode:
  24.          (turn-on-auto-fill)    ; use auto-fill
  25.          (defvar fill-loaded nil)
  26.          (if fill-loaded nil
  27.            (load-library "c-fill") ; load c-comment
  28.            (setq fill-loaded t)))) ; (only once!)
  29.  
  30. (setq ctl-arrow "dummy")           ; set to non nil/t for 8-bit chars
  31.  
  32.  
  33. ;; define function keys term/atari.el
  34. (load "/dev/D/gnu/e-lisp/term/atari.el")
  35. ;; load mess-dos-mode
  36. (load "/dev/D/gnu/e-lisp/st/dos-mode.el")
  37.  
  38. (defun toggle-dos-mode () 
  39.      (interactive)
  40.      (setq dos-mode (not dos-mode))
  41.      (set-buffer-modified-p (buffer-modified-p)))
  42.  
  43. (setq meta-flag 't)
  44.  
  45. ;; define utility functions
  46. ;
  47. ;
  48. (defun show-matching-paren (arg)
  49.   "Act as if a close-paren had been self-inserted."
  50.   (interactive "p")
  51.   (forward-char)
  52.   (blink-matching-open)
  53.   (backward-char))
  54.  
  55. (defun display-mem ()
  56.   (interactive)
  57.   (message "Memory usage: %d bytes free, %d bytes used (%d%%)"
  58.        data-bytes-free data-bytes-used
  59.        (/ (* data-bytes-used)
  60.           (/ (+ data-bytes-used data-bytes-free) 100))))
  61.  
  62. ;; personalize the keypad key bindings
  63. ;       Must be done after (load 'term/atari.el)
  64. (define-key function-keymap  "\C-a" 'display-mem)     ; F1  key 
  65. (define-key function-keymap  "\C-b" 'goto-line)       ; F2  key
  66. (define-key function-keymap  "\C-c" 'what-line)       ; F3  key
  67. (define-key function-keymap  "\C-j" 'toggle-dos-mode) ; F10 key
  68. (define-key function-keymap  "I"    'overwrite-mode)  ; Insert key
  69.  
  70. (put 'eval-expression 'disabled nil) 
  71.