From d44826f3dc7e8f514c97552078e0bbadcb2e6e59 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 10 Dec 1987 02:40:19 +0000 Subject: [PATCH] Change `xscheme-select-process-buffer' to select the window of the Scheme process if that is visible. --- etc/xscheme.el | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/etc/xscheme.el b/etc/xscheme.el index 41ea3b25f..1712f46f3 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.13 1987/12/07 10:38:16 cph Exp $ +;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/etc/xscheme.el,v 1.14 1987/12/10 02:40:19 cph Exp $ (require 'scheme) @@ -311,12 +311,13 @@ The strings are concatenated and terminated by a newline." (defun xscheme-select-process-buffer () "Select the Scheme process buffer and move to its output point." (interactive) - (let ((process (get-process "scheme"))) - (cond (process - (switch-to-buffer (process-buffer process)) - (goto-char (process-mark process))) - (t - (error "No scheme process"))))) + (let ((process (or (get-process "scheme") (error "No scheme process")))) + (let ((buffer (or (process-buffer process) (error "No process buffer")))) + (let ((window (get-buffer-window buffer))) + (if window + (select-window window) + (switch-to-buffer buffer)) + (goto-char (process-mark process)))))) (defun xscheme-send-region (start end) "Send the current region to the Scheme process. -- 2.25.1