向Emacs中的mutliple eshells发送命令

(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时,最后一行中列出的程序将自动执行。