home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilisp.emacs.z / ilisp.emacs
Encoding:
Text File  |  1998-05-21  |  4.8 KB  |  156 lines

  1. ;;;  -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilisp.emacs --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  14. ;;; ILISP mailing list.
  15.  
  16. ;;; This file shows examples of some of the things you might want to
  17. ;;; do to install or customize ILISP.  You may not want to include all
  18. ;;; of them in your .emacs.  For example, the default key binding
  19. ;;; prefix for ILISP is C-z and this file changes the default prefix to
  20. ;;; C-c.  For more information on things that can be changed, see the
  21. ;;; file ilisp.el. 
  22.  
  23.  
  24. ;;; If ilisp lives in some non-standard directory, you must tell emacs
  25. ;;; where to get it. This may or may not be necessary.
  26.  
  27. (setq load-path (cons (expand-file-name "~jones/emacs/ilisp/") load-path))
  28.  
  29.  
  30. ;;; If you always want partial minibuffer completion
  31.  
  32. (require 'completer)
  33.  
  34. ;;; If want TMC completion then you will have to Ftp it yourself from think.com
  35. ;;; It's become to flaky for me to deal with. -- Ivan
  36. ;;;(load "completion")
  37. ;;;(initialize-completions)
  38.  
  39. ;;; If you want to redefine typeout-window keys:
  40. ;;;(add-hook 'ilisp-load-hook
  41. ;;;      '(lambda ()
  42. ;;;    (define-key global-map "\C-c1" 'ilisp-bury-output)
  43. ;;;    (define-key global-map "\C-cv" 'ilisp-scroll-output)
  44. ;;;    (define-key global-map "\C-cg" 'ilisp-grow-output)))
  45.  
  46.  
  47. ;;; Autoload based on your LISP.  You only really need the one you use.
  48. ;;; If called with a prefix, you will be prompted for a buffer and
  49. ;;; program.
  50. ;;; 
  51. ;;; [Back to the old way now -- Ivan Mon Jun 28 23:30:51 1993]
  52. ;;;
  53.  
  54. (autoload 'run-ilisp "ilisp" "Select a new inferior LISP." t)
  55.  
  56. (autoload 'clisp     "ilisp" "Inferior generic Common LISP." t)
  57.  
  58. ;;; Franz
  59. ;(autoload 'allegro   "ilisp" "Inferior Allegro Common LISP." t)
  60.  
  61. ;;; Lucid
  62. ;(autoload 'lucid     "ilisp" "Inferior Lucid Common LISP." t)
  63.  
  64. ;;; Harlequin
  65. ;(autoload lispworks  "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
  66. ;(autoload harlequin  "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
  67. ;(autoload pulcinella "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
  68. ;;; Italian "Commedia dell'Arte" twist.
  69.  
  70. ;;; CMULISP
  71. (autoload 'cmulisp   "ilisp" "Inferior CMU Common LISP." t)
  72.  
  73. ;;; CLISP (Bruno Haible and XX stoll)
  74. ;(autoload 'clisp-hs   "ilisp" "Inferior Haible/Stoll CLISP Common LISP." t)
  75.  
  76. ;;; KCL's
  77. ;(autoload 'kcl "ilisp" "Inferior Kyoto Common LISP." t)
  78. (autoload 'akcl "ilisp" "Inferior Austin Kyoto Common LISP." t)
  79. ;(autoload 'ibcl "ilisp" "Ibuki Common LISP." t)
  80. (autoload 'gcl "ilisp" "Inferior GNU Common LISP." t)
  81. (autoload 'ecl "ilisp" "Inferior EcoLisp." t)
  82.  
  83. ;;; Xlisp
  84. (autoload 'xlisp     "ilisp" "Inferior xlisp." t)
  85. (autoload 'xlispstat "ilisp" "Inferior xlispstat." t)
  86.  
  87. ;;; Scheme's
  88. ;(autoload 'scheme    "ilisp" "Inferior generic Scheme." t)
  89. ;(autoload 'oaklisp   "ilisp" "Inferior Oaklisp Scheme." t)
  90.  
  91.  
  92. ;;; Define where LISP programs are found.  (This may already be done
  93. ;;; at your site.)
  94.  
  95. ;(setq allegro-program "/usr/misc/.allegro/bin/cl")
  96.  
  97. ;(setq lucid-program "/usr/misc/.lucid/bin/lisp")
  98.  
  99. ;(setq clisp-hs-program "clisp")
  100.  
  101. ;(setq lispworks-program "/somewhere/in/the/directory/tree/lispworks")
  102.  
  103. (setq cmulisp-program "/usr/robotics/shared/lang/cmu-cl/17e/bin/lisp")
  104.  
  105. (setq akcl-program "kcl")
  106. ;(setq gcl-program "gcl")
  107. ;(setq ecl-program "ecl")
  108.  
  109. ;(setq xlisp-program "xlisp")
  110. ;(setq xlisp-program "xlispstat")
  111.  
  112. ;;; If you run cmu-cl then set this to where your source files are.
  113. (setq cmulisp-local-source-directory "/usr/robotics/shared/cmu-cl/17e/")
  114.  
  115.  
  116. ;;; This makes reading a lisp file load in ilisp.
  117. (set-default 'auto-mode-alist
  118.          (append '(("\\.lisp$" . lisp-mode)) auto-mode-alist))
  119. (setq lisp-mode-hook '(lambda () (require 'ilisp)))
  120.  
  121. ;;; Sample load hook
  122. (add-hook 'ilisp-load-hook 
  123.       (function
  124.        (lambda ()
  125.          ;; Change default key prefix to C-c
  126.          (setq ilisp-prefix "\C-c")
  127.  
  128.          ;; Make sure that you don't keep popping up the 'inferior
  129.          ;; lisp' buffer window when this is already visible in
  130.          ;; another frame. Actually this variable has more impact
  131.          ;; than that. Watch out.
  132.          ;(setq pop-up-frames t)
  133.  
  134.          (message "Running ilisp-load-hook")
  135.          ;; Define LispMachine-like key bindings, too.
  136.          ;; (ilisp-lispm-bindings) Sample initialization hook.
  137.  
  138.          ;; Set the inferior LISP directory to the directory of
  139.          ;; the buffer that spawned it on the first prompt.
  140.          (add-hook 'ilisp-init-hook
  141.                (function
  142.             (lambda ()
  143.               (default-directory-lisp ilisp-last-buffer))))
  144.          )))
  145.  
  146. (add-hook 'ilisp-site-hook
  147.       (function
  148.        (lambda ()
  149.          (setq ilisp-init-binary-extension "sparcf")
  150.          (setq ilisp-init-binary-command "(progn \"sparcf\")")
  151.          ;; (setq ilisp-binary-extension "sparcf")
  152.          )))
  153.  
  154.  
  155. ;;; end of file -- ilisp.emacs --
  156.