home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / lemacs-19.6 / lisp / ilisp / ilisp.emacs < prev    next >
Encoding:
Text File  |  1992-06-29  |  2.8 KB  |  72 lines
  1. ;;;
  2. ;;; This file shows examples of some of the things you might want to
  3. ;;; do to install or customize ILISP.  You may not want to include all
  4. ;;; of them in your .emacs.  For example, the default key binding
  5. ;;; prefix for ILISP is C-z and this file changes the default prefix to
  6. ;;; C-c.  For more information on things that can be changed, see the
  7. ;;; file ilisp.el. 
  8. ;;;
  9.  
  10. ;;; If ilisp lives in some non-standard directory, you must tell emacs
  11. ;;; where to get it. This may or may not be necessary.
  12. (setq load-path (cons (expand-file-name "~jones/emacs/ilisp/") load-path))
  13.  
  14. ;;; If you always want partial minibuffer completion
  15. (require 'completer)
  16.  
  17. ;;; If want always want TMC completion
  18. (load "completion")
  19. (initialize-completions)
  20.  
  21. ;;; If you want to redefine popper keys
  22. (setq popper-load-hook
  23.       '(lambda ()
  24.     (define-key global-map "\C-c1" 'popper-bury-output)
  25.     (define-key global-map "\C-cv" 'popper-scroll-output)
  26.     (define-key global-map "\C-cg" 'popper-grow-output)
  27.     (define-key global-map "\C-cb" 'popper-switch)))
  28.  
  29. ;;; If you always want popper windows
  30. (if (boundp 'epoch::version)
  31.     (require 'epoch-pop)
  32.     (require 'popper))
  33.  
  34. ;;; Autoload based on your LISP.  You only really need the one you use.
  35. ;;; If called with a prefix, you will be prompted for a buffer and program.
  36. (autoload 'run-ilisp "ilisp" "Select a new inferior LISP." t)
  37. (autoload 'clisp     "ilisp" "Inferior generic Common LISP." t)
  38. (autoload 'allegro   "ilisp" "Inferior Allegro Common LISP." t)
  39. (autoload 'lucid     "ilisp" "Inferior Lucid Common LISP." t)
  40. (autoload 'cmulisp   "ilisp" "Inferior CMU Common LISP." t)
  41. (autoload 'kcl       "ilisp" "Inferior Kyoto Common LISP." t)
  42. (autoload 'akcl      "ilisp" "Inferior Austin Kyoto Common LISP." t)
  43. (autoload 'ibcl      "ilisp" "Ibuki Common LISP." t)
  44. (autoload 'scheme    "ilisp" "Inferior generic Scheme." t)
  45. (autoload 'oaklisp   "ilisp" "Inferior Oaklisp Scheme." t)
  46.  
  47. ;;; Define where LISP programs are found.  (This may already be done
  48. ;;; at your site.)
  49. (setq allegro-program "/usr/misc/.allegro/bin/cl")
  50. (setq lucid-program "/usr/misc/.lucid/bin/lisp")
  51. (setq cmulisp-program "/usr/misc/.cmucl/bin/lisp")
  52.  
  53. ;;; This makes reading a lisp file load in ilisp.
  54. (set-default 'auto-mode-alist
  55.          (append '(("\\.lisp$" . lisp-mode)) auto-mode-alist))
  56. (setq lisp-mode-hook '(lambda () (require 'ilisp)))
  57.  
  58. ;;; Sample load hook
  59. (setq ilisp-load-hook 
  60.       '(lambda ()
  61.     ;; Change default key prefix to C-c
  62.     (setq ilisp-prefix "\C-c")
  63.     ;; Sample initialization hook.  Set the inferior LISP directory to
  64.     ;; the directory of the buffer that spawned it on the first prompt.
  65.     (add-hook ilisp-hook
  66.      (function (lambda ()
  67.        (default-directory-lisp ilisp-last-buffer))))))
  68.  
  69. ;;; Setup to always show output in the Inferior LISP buffer.
  70. ;(setq lisp-no-popper t
  71. ;      comint-always-scroll t)
  72.