From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 24 Mar 1994 18:04:53 +0000 (+0000)
Subject: Simplify customization of scheme-interaction-mode-commands by allowing
X-Git-Tag: 20090517-FFI~7214
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=cc44e8bf2c1f079f3bc62446b32052ecc6998c3b;p=mit-scheme.git

Simplify customization of scheme-interaction-mode-commands by allowing
user to provide partial specification of commands alist before this
file is loaded.
---

diff --git a/etc/xscheme.el b/etc/xscheme.el
index 897aea624..da7677f81 100644
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -20,7 +20,7 @@
 ;;; Requires C-Scheme release 5 or later
 ;;; Changes to Control-G handler require runtime version 13.85 or later
 
-;;; $Id: xscheme.el,v 1.34 1994/03/24 17:59:43 cph Exp $
+;;; $Id: xscheme.el,v 1.35 1994/03/24 18:04:53 cph Exp $
 
 (require 'scheme)
 
@@ -365,12 +365,14 @@ with no args, if that value is non-nil.
 	(car (cdr (car entries))))
       (setq entries (cdr entries)))))
 
-(defvar scheme-interaction-mode-commands-alist
-  '(("\C-c\C-m" xscheme-send-current-line)
-    ("\C-c\C-p" xscheme-send-proceed)
-    ("\C-c\C-y" xscheme-yank)
-    ("\ep" xscheme-yank-pop)
-    ("\en" xscheme-yank-push)))
+(defvar scheme-interaction-mode-commands-alist nil)
+(setq scheme-interaction-mode-commands-alist
+      (append scheme-interaction-mode-commands-alist
+	      '(("\C-c\C-m" xscheme-send-current-line)
+		("\C-c\C-p" xscheme-send-proceed)
+		("\C-c\C-y" xscheme-yank)
+		("\ep" xscheme-yank-pop)
+		("\en" xscheme-yank-push))))
 
 (defun xscheme-enter-interaction-mode ()
   (save-excursion