Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp.emacs @ 0:376386a54a3c r19-14

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