1

当我进入cd c:/dir/to/pathshell 模式时，shell 模式会跟随它default-directory，c:/dir/to/path这很好。但是在访问某个文件（c:/another/dir/file.ext）时，我怎样才能让现有的shell目录不进入那个目录cd c:/antoher/dir/file.ext呢？

在 emacs 中是否有任何预先存在的功能？搜索了很多，但不幸的是没有找到。

我在 Win7 中使用 Emacs 24.2.1。

编辑：

我写了一个不好看的函数，如下所示。任何建议/建议将不胜感激（我是 elisp 的新手）。（通过带前缀的交互式调用，它将显示带有当前目录的 shell 缓冲区。我反复思考可能已经发明了比这更好的东西）。

  (defun my-shell-with-current-directory (&optional arg)
  (interactive "P")
  (let* ((sp (get-process "shell"))
         (spbuf (and sp (process-buffer sp)))
         (dir (if buffer-file-name (file-name-directory buffer-file-name) default-directory)))
    (if (and arg sp spbuf dir)
        (progn 
          (comint-simple-send sp (concat "cd /d " dir))
          (display-buffer spbuf)
          (save-excursion
            (set-buffer spbuf)
            (cd dir)
            )
          )
      (progn
        (shell)
        (comint-simple-send sp "setlocal enableextensions")
        )
      )
    )
  )
4

1 回答 1

0

您可以随时使用 setq 设置默认目录。您可以将该代码作为挂钩添加到 find-file-hooks 上。您也可以建议使用所需设置的 find-file 命令。到目前为止只是我的想法...

于 2013-02-01T07:37:37.017 回答