如何选择用于emacs的方案？

Question

我在〜/ .emacs中有以下代码用于运行scheme(gosh和mit-scheme).

;(setq scheme-program-name "gosh -i")
(setq scheme-program-name "mit-scheme")
(autoload 'scheme-mode "cmuscheme" "Major mode for scheme." t)
(autoload 'run-scheme "cmuscheme" "Run an inferior scheme process." t)

(defun scheme-other-window ()
 "Run scheme on other window"
 (interactive)
 (switch-to-buffer-other-window
  (get-buffer-create "*scheme*"))
 (run-scheme scheme-program-name))

(define-key global-map
  "\C-cs" 'scheme-other-window)

Cc以"scheme-program-name"指定的REPL方式启动方案,并通过注释掉一个或另一个来选择要使用的方案.

还有比这更好的方法吗？我的意思是,我可以选择使用"Mx"或其他什么方案吗？

Answer 1

如果run-scheme使用前缀参数调用,它将询问您要运行哪个方案 - 您可以通过运行它来伪造它

(let ((current-prefix-arg 1)) (call-interactively 'run-scheme))