在具有给定工作目录的emacs中打开shell

我想在emacs中有一个

make-shells

命令，它将打开一些emacs-shell缓冲区，每个缓冲区都有自己的工作目录。我的想法是，对于我正在处理的每个项目，我都有一个从该项目目录开始的shell，因此我可以轻松地在它们之间切换。 目前我有这个代码：

(defun shell-dir (name dir)
  (interactive "sShell name: nDDirectory: ")
  (shell name)
  (switch-to-buffer name)
  (comint-send-string (current-buffer) (concat "cd " dir "r"))
  (sleep-for 0 10)
  (dirs))

(defun make-shells ()
  (interactive)
  (shell-dir "project1" "~/proj/project1")
  (shell-dir "project2" "~/proj/project2")
  (shell-dir "project3" "~/proj/project3")
  (delete-window))

但这非常难看，并且有一半时间

(dirs)

没有找到正确的路径，因此标签完成会中断，直到我手动重新运行它。是否有内置方法来设置emacs shell的当前工作目录？或者像CEDET这样的东西（再加上对shell和emacs模式的依赖性较小）是一个更好的解决方案吗？