自定义shell从.emacs自动启动

Question

我想启动几个shell，并从我的.emacs设置目录。打开它们很容易：

;; run a few shells.
(shell "*shell5*")
(shell "*shell6*")
(shell "*shell7*")

但我也想指定他们的目录。

Answer 1

以下为我工作

(let ((default-directory "/path/to/whereever/"))
  (shell "*shell1*"))

Answer 2

(shell "*shell5*")
(with-current-buffer "*shell5*"
(goto-char (point-max))
(insert "cd dir")) ;;for example
(comint-send-input nil t) ;; enter

现在我有了这个，我认为需要一些改进。当我在我的emacs中使用它会导致错误，但做你想要的。我会试着解释原因。