Ich wollte ein Skript am Speicherort des aktuellen Puffers ausführen oder, wenn es sich um einen dired-Puffer handelt, das Skript im aktuellen dired-Verzeichnis ausführen. Das aktuelle Verzeichnis scheint in gespeichert zu seindired-directory Variable. In der Tat ist es - aber wenn ich versuche, es zu nutzen - es gibt mir manchmal die vorherigen dirs anstelle der aktuellen:

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

Wie kann ich dafür sorgen, dass der Defun den richtigen Wert für das aktuelle Verzeichnis des Direds erhält?