From e7a2492c03d29de7bd4bd0d6dfbbdd5824ad754c Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 24 Mar 1994 17:59:43 +0000 Subject: [PATCH] Add support for the jawilson/nat/arthur debugger: (1) mechanism for evaluating emacs expressions outside of the process-filter's save-excursion; (2) allow customization of scheme-interaction-mode-commands. --- etc/xscheme.el | 21 +++++++++++---------- 1 file changed, 11 insertions(+), 10 deletions(-) diff --git a/etc/xscheme.el b/etc/xscheme.el index 06ea103f7..897aea624 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.33 1994/03/24 17:54:43 cph Exp $ +;;; $Id: xscheme.el,v 1.34 1994/03/24 17:59:43 cph Exp $ (require 'scheme) @@ -343,10 +343,20 @@ with no args, if that value is non-nil. (set-process-sentinel process (cdr previous-state)))))))) (defun scheme-interaction-mode-initialize () + (if (not scheme-interaction-mode-map) + (progn + (setq scheme-interaction-mode-map (make-keymap)) + (scheme-mode-commands scheme-interaction-mode-map) + (xscheme-interrupt-commands scheme-interaction-mode-map) + (xscheme-evaluation-commands scheme-interaction-mode-map) + (scheme-interaction-mode-commands scheme-interaction-mode-map))) (use-local-map scheme-interaction-mode-map) (setq major-mode 'scheme-interaction-mode) (setq mode-name "Scheme Interaction")) +(defvar scheme-interaction-mode-map + nil) + (defun scheme-interaction-mode-commands (keymap) (let ((entries scheme-interaction-mode-commands-alist)) (while entries @@ -362,15 +372,6 @@ with no args, if that value is non-nil. ("\ep" xscheme-yank-pop) ("\en" xscheme-yank-push))) -(defvar scheme-interaction-mode-map nil) -(if (not scheme-interaction-mode-map) - (progn - (setq scheme-interaction-mode-map (make-keymap)) - (scheme-mode-commands scheme-interaction-mode-map) - (xscheme-interrupt-commands scheme-interaction-mode-map) - (xscheme-evaluation-commands scheme-interaction-mode-map) - (scheme-interaction-mode-commands scheme-interaction-mode-map))) - (defun xscheme-enter-interaction-mode () (save-excursion (set-buffer (xscheme-process-buffer)) -- 2.25.1