自定义 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 中使用它时，它会导致错误，但会做你想要的。我会试着找出原因。