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 897aea62424d34223ebc7dfbfcf5098cc59dec79..da7677f814420dfcd7e73f30a78ba19d1328b468 100644 (file)
--- 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)
 \f
@@ -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