我想在当前缓冲区的位置运行脚本,或者,如果它是 dired 缓冲区 - 在当前 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 当前目录的正确值?
您可以使用变量default-directory
.
在这种情况下,您不需要检查您是否处于 Dired 模式。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)