215 |
(kill-local-variable 'xscheme-buffer-name) |
(kill-local-variable 'xscheme-buffer-name) |
216 |
(kill-local-variable 'xscheme-process-name) |
(kill-local-variable 'xscheme-process-name) |
217 |
(kill-local-variable 'xscheme-runlight)) |
(kill-local-variable 'xscheme-runlight)) |
218 |
|
|
219 |
(defun verify-xscheme-buffer (buffer-name localp) |
(defun verify-xscheme-buffer (buffer-name localp) |
220 |
(if (and localp (xscheme-process-buffer-current-p)) |
(if (and localp (xscheme-process-buffer-current-p)) |
221 |
(error "Cannot change the interaction buffer of an interaction buffer")) |
(error "Cannot change the interaction buffer of an interaction buffer")) |