Quería ejecutar un script en la ubicación del búfer actual o, si se trata de un búfer dired - para ejecutar el script en el directorio dired actual. El directorio dired actual parece estar almacenado endired-directory variable. De hecho lo es, pero cuando trato de usarlo, a veces me da las direcciones anteriores en lugar de la actual:

(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)))

¿Cómo hago para que el defun obtenga el valor correcto del directorio actual de dired?