将命令发送到Emacs中的多个Shell

Question

我希望在启动emacs时启动一些进程，例如一个eshell中的webserver和另一个shell中的weblogic实例，但每当我尝试将命令发送到eshell时，Emacs就会挂起。我也试过使用“交互式”命令，但Emacs仍然挂起。

Answer 1

(require 'cl)

(defun eshell-run (programs)
  (loop for p in programs for i from 1 do
        (with-current-buffer (eshell i)
          (insert p)
          (eshell-send-input))))

(eshell-run '("program1" "program2"))

编辑：

如果将上述行添加到init文件中，则在启动Emacs时将自动执行最后一行中列出的程序。