338 |
(setq xscheme-previous-process-state (cons nil nil))))))) |
(setq xscheme-previous-process-state (cons nil nil))))))) |
339 |
(scheme-interaction-mode-initialize) |
(scheme-interaction-mode-initialize) |
340 |
(scheme-mode-variables) |
(scheme-mode-variables) |
341 |
(run-hooks 'scheme-mode-hook 'scheme-interaction-mode-hook)) |
(run-mode-hooks 'scheme-mode-hook 'scheme-interaction-mode-hook)) |
342 |
|
|
343 |
(defun exit-scheme-interaction-mode () |
(defun exit-scheme-interaction-mode () |
344 |
"Take buffer out of scheme interaction mode" |
"Take buffer out of scheme interaction mode" |