4

我想在当前缓冲区的位置运行一个脚本，或者，如果它是一个 dired 缓冲区 - 在当前 dired 目录上运行脚本。当前的目录似乎存储在dired-directory变量中。确实是这样 - 但是当我尝试使用它时 - 它有时会给我以前的目录而不是当前的目录：

(defun bk-konsoles ()
  "Calls: bk-konsoles.bash"
  (interactive)
  (let ((curDir (if (memq major-mode '(dired-mode sr-mode)) dired-directory
                  (if (buffer-file-name) (file-name-directory (buffer-file-name))))))
    (shell-command (concat (expand-file-name "~/its/plts/goodies/bk-konsoles.bash ") curDir " & disown") nil nil)
    (kill-buffer "*Shell Command Output*")
    (delete-other-windows)))

如何让 defun 获得 dired 当前目录的正确值？

4

1 回答 1

9

您可以使用变量default-directory.

在这种情况下，您无需检查您是否处于 dired 模式。

于 2012-05-27T09:32:59.723 回答