From d34fa910860b9a6927c305b28834e1981ae65905 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 2 Nov 1987 20:19:30 +0000
Subject: [PATCH] When sending strings to the Scheme process, set the "previous
send" only if the Scheme process buffer is selected. Almost never do we want
to yank something that was sent from another buffer.
---
etc/xscheme.el | 20 ++++++++++++--------
1 file changed, 12 insertions(+), 8 deletions(-)
diff --git a/etc/xscheme.el b/etc/xscheme.el
index 944fd48a9..de6f9b24b 100644
--- a/etc/xscheme.el
+++ b/etc/xscheme.el
@@ -21,7 +21,7 @@
;;; Requires C-Scheme release 5 or later
;;; Changes to Control-G handler require runtime version 13.85 or later
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.1 1987/10/19 19:42:39 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.2 1987/11/02 20:19:30 cph Exp $
(require 'scheme)
@@ -152,12 +152,13 @@ The strings are concatenated and terminated by a newline."
(defun xscheme-send-string-1 (strings)
(let ((string (apply 'concat strings)))
(xscheme-send-string-2 string)
- (setq xscheme-previous-send string)))
+ (if (xscheme-process-buffer-current-p)
+ (setq xscheme-previous-send string))))
(defun xscheme-send-string-2 (string)
(let ((process (get-process "scheme")))
(send-string process (concat string "\n"))
- (if (eq (current-buffer) (process-buffer process))
+ (if (xscheme-process-buffer-current-p)
(set-marker (process-mark process) (point)))))
(defun xscheme-yank-previous-send ()
@@ -170,10 +171,9 @@ The strings are concatenated and terminated by a newline."
"Send the current region to the Scheme process.
The region is sent terminated by a newline."
(interactive "r")
- (let ((process (get-process "scheme")))
- (if (and process (eq (current-buffer) (process-buffer process)))
- (progn (goto-char end)
- (set-marker (process-mark process) end))))
+ (if (xscheme-process-buffer-current-p)
+ (progn (goto-char end)
+ (set-marker (process-mark (get-process "scheme")) end)))
(xscheme-send-string (buffer-substring start end)))
(defun xscheme-send-definition ()
@@ -219,7 +219,7 @@ Useful for working with `adb'."
(defun xscheme-send-buffer ()
"Send the current buffer to the Scheme process."
(interactive)
- (if (eq (current-buffer) (xscheme-process-buffer))
+ (if (xscheme-process-buffer-current-p)
(error "Not allowed to send this buffer's contents to Scheme"))
(xscheme-send-region (point-min) (point-max)))
@@ -336,6 +336,10 @@ Control returns to the top level rep loop."
(defun xscheme-process-buffer-window ()
(let ((buffer (xscheme-process-buffer)))
(and buffer (get-buffer-window buffer))))
+
+(defun xscheme-process-buffer-current-p ()
+ "True iff the current buffer is the Scheme process buffer."
+ (eq (xscheme-process-buffer) (current-buffer)))
;;;; Process Filter
--
2.25.1