*** empty log message ***

1 files changed, 127 insertions, 0 deletions

diff --git a/app-emacs/ilisp-cvs/files/ilisp.el b/app-emacs/ilisp-cvs/files/ilisp.el
new file mode 100644
index 000000000000..2c7526b9606e
--- /dev/null
+++ b/app-emacs/ilisp-cvs/files/ilisp.el
@@ -0,0 +1,127 @@
+;;;  -*- Mode: Emacs-Lisp -*-
+;;;
+;;; Copyright (c) 2002 Kevin Rosenberg GNU License
+
+;;; Mofifications for Gentoo, Matthew Kennedy <mkennedy@gentoo.org>
+
+(defvar ilisp-*directory* "/usr/lib/ilisp/")
+
+(require 'completer)
+
+(setq ilisp-*use-fsf-compliant-keybindings* t)
+(when (file-exists-p "/etc/ilisp/ilisp-keybindings.el")
+  (load "/etc/ilisp/ilisp-keybindings.el"))
+(setq ilisp-*use-frame-for-output* nil)
+(setq ilisp-*use-frame-for-arglist-output-p* nil)
+(setq ilisp-motd nil)
+
+(autoload 'run-ilisp "ilisp" "Select a new inferior LISP." t)
+(autoload 'clisp-hs  "ilisp" "Inferior CLISP Common LISP." t)
+(autoload 'allegro "ilisp" "Inferior Allegro Common Lisp." t)
+(autoload 'lispworks "ilisp" "Inferior Lispworks Common Lisp." t)
+(autoload 'openmcl "ilisp" "Inferior OpenMCL Common Lisp." t)
+(autoload 'scheme  "ilisp" "Inferior generic Scheme." t)
+(autoload 'guile "ilisp" "Inferior Guile Scheme." t)
+
+(defun alisp ()
+  (interactive)
+  (setq allegro-program "/usr/bin/alisp")
+  (allegro))
+(defun alisp8 ()
+  (interactive)
+  (setq allegro-program "/usr/bin/alisp8")
+  (allegro))
+(defun mlisp ()
+  (interactive)
+  (setq allegro-program "/usr/bin/mlisp")
+  (allegro))
+(defun mlisp8 ()
+  (interactive)
+  (setq allegro-program "/usr/bin/mlisp8")
+  (allegro))
+
+;; (defun cmucl-normal ()
+;;   "Inferior CMU Common LISP -- normal core."
+;;   (interactive)
+;;   (setq cmulisp-program "/usr/bin/lisp -core /usr/lib/cmucl/lisp-normal.core")
+;;   (cmulisp))
+;; (defun cmucl-small () 
+;;   "Inferior CMU Common LISP -- small core."
+;;   (interactive)
+;;   (setq cmulisp-program "/usr/bin/lisp -core /usr/lib/cmucl/lisp-small.core")
+;;   (cmulisp))
+;; (defun cmucl-safe ()
+;;  "Inferior CMU Common LISP -- safe core."
+;;   (interactive)
+;;   (setq cmulisp-program "/usr/bin/lisp -core /usr/lib/cmucl/lisp-safe.core")
+;;   (cmulisp))
+
+(defun sbcl-mt ()
+ "SBCL multithreading."
+  (interactive)
+  (setq sbcl-program "/usr/bin/sbcl-mt --noinform")
+  (sbcl))
+
+(autoload 'sbcl  "ilisp" "Inferior Steel Bank Common LISP." t)
+(autoload 'cmulisp  "ilisp" "Inferior CMU Common LISP." t)
+
+(setq common-lisp-hyperspec-root "/usr/share/doc/hyperspec/")
+(setq cltl2-root-url "file:///usr/share/doc/cltl/")
+
+(setq ilisp-site-hook
+      '(lambda ()
+	 ;; delete any keybindings that start with this sequence, such
+	 ;; as oo-browser's  bindings 
+	 (global-unset-key [(control c) (control v)])
+
+	 (setq clisp-hs-progam "clisp -a -I")
+	 (setq allegro-program "/usr/bin/acl")
+	 (setq lispworks-program "/usr/bin/lw-console -multiprocessing")
+	 (setq openmcl-program "/usr/bin/openmcl")
+	 (setq cmulisp-program "/usr/bin/lisp")
+	 (setq guile-program "/usr/bin/guile1.4")
+	 (setq cmulisp-local-source-directory "/usr/src/cmucl/")
+	 ))
+
+(add-hook 'ilisp-mode-hook
+	  '(lambda ()))
+
+;; Loading lisp files starts ilisp
+(set-default 'auto-mode-alist
+	     (append '(("\\.lisp$" . lisp-mode)
+		       ("\\.lsp$" . lisp-mode)
+		       ("\\.cl$" . lisp-mode))
+		     auto-mode-alist))
+
+(add-hook 'lisp-mode-hook
+	  (function (lambda () (require 'ilisp))))
+
+;;; Load hooks
+(add-hook  'scheme-mode-hook
+	   (function (lambda () (require 'ilisp))))
+
+(add-hook 'ilisp-load-hook
+	  '(lambda ()
+	     (when ilisp-*use-fsf-compliant-keybindings*
+	       (setq ilisp-*prefix* "\C-c"))
+	     (setq lisp-no-popper t)
+	     
+	     ;; Make sure that you don't keep popping up the 'inferior
+             ;; Lisp' buffer window when this is already visible in
+             ;; another frame. Actually this variable has more impact
+             ;; than that. Watch out.
+             ; (setq pop-up-frames t)
+
+             ;;(message "Running ilisp-load-hook")
+             ;; Define LispMachine-like key bindings, too.
+             ; (ilisp-lispm-bindings) Sample initialization hook.
+
+             ;; Set the inferior Lisp directory to the directory of
+             ;; the buffer that spawned it on the first prompt.
+             (add-hook 'ilisp-init-hook
+                       '(lambda ()
+                          (default-directory-lisp ilisp-last-buffer)))
+
+             ))
+
+