1 files changed, 0 insertions, 91 deletions
diff --git a/emacs/guileint/guileint.el b/emacs/guileint/guileint.el
index e2cf108a8..e69de29bb 100644
--- a/emacs/guileint/guileint.el
+++ b/emacs/guileint/guileint.el
@@ -1,91 +0,0 @@
-;;; NAME:	 guileint.el
-;;; SYNOPSIS:	 A Guile/Emacs interface prototype
-;;; VERSION:	 1.5
-;;; LAST CHANGE: 2002-10-19
-;;; CREATED:	 1997-07-17
-;;; AUTHOR:	 Mikael Djurfeldt <djurfeldt@nada.kth.se>
-;;; COPYRIGHT:	 (C) 1997, 2002 Mikael Djurfeldt
-;;;
-;;;  Verbatim copies of this file may be freely redistributed.
-;;;
-;;;  Modified versions of this file may be redistributed provided that this
-;;;  notice remains unchanged, the file contains prominent notice of
-;;;  author and time of modifications, and redistribution of the file
-;;;  is not further restricted in any way.
-;;;
-;;;  This file is distributed `as is', without warranties of any kind.
-;;;
-;;; REQUIREMENTS:
-;;;
-;;; USAGE:
-;;;
-;;; BUGS:
-;;;
-
-(require 'cl-19 "cl")
-
-(setq scheme-program-name
-      (let ((v (getenv "SCHEME_PROGRAM_NAME")))
-	(or v
-	    (concat "guile"
-		    (and window-system " --emacs")))))
-
-;;; Select buffers to pop up as separate windows
-(if window-system
-    (progn
-      (defvar default-special-display-buffer-names
-	special-display-buffer-names)
-      (setq special-display-buffer-names
-	    (union default-special-display-buffer-names '("*scheme*")))
-
-      (setq same-window-buffer-names
-	    (delete "*scheme*" same-window-buffer-names))
-
-      (setq special-display-frame-alist
-	    '((height . 24) (width . 80) (unsplittable . t)))
-      ))
-
-;;; Do things to support lisp-hacking better
-(if (equal (substring emacs-version 0 2) "19")
-    ;; Emacs version 19 specific initializations
-    (progn
-      (copy-face 'default 'paren)
-      (condition-case err
-	  (make-face-bold 'paren)
-	(error))
-      (setq show-paren-face 'paren)
-      (require 'paren)
-      ;; The old parenthesis matcher has the advantage of displaying
-      ;; non-visible matching parenthesis in the minibuffer.
-      ;; Since paren.el adds (setq blink-paren-function nil) to the
-      ;; window-setup-hook it's necessary to put this setq there
-      ;; also.
-      (add-hook 'window-setup-hook (function restore-blink-paren) t)
-      (setq blink-matching-delay 0.5)
-      ))
-
-(defun restore-blink-paren ()
-  (interactive)
-  (setq blink-matching-paren-on-screen t)
-  (set-face-underline-p 'paren t))
-
-;;; Menus
-;;;
-
-(require 'defmenu)
-
-;(setq menu-bar-final-items
-;      '(completion inout signals scheme help-menu))
-(setq menu-bar-final-items
-      '(interpret scheme help-menu))
-
-;; The global menu
-;;
-(define-menu global-map 'interpret "Interpret"
-  '(("Guile" run-scheme (not (comint-check-proc "*scheme*")))
-    ("Switch to *scheme*" guile-switch-to-scheme
-     (comint-check-proc "*scheme*"))))
-
-(load "inda-scheme")
-
-(provide 'guileint)