diredでミニバッファに現在行の内容表示

printdir.el

(defun dired-print-current-dir-and-file ()
  (message (concat  default-directory
                   "  "
                   (buffer-substring-no-properties
                    (point-at-bol) (point-at-eol)))))
(defadvice dired-next-line (after dired-next-line-print-directory activate)
  "print current directory when go down line"
  (dired-print-current-dir-and-file))
(defadvice dired-previous-line (after dired-previous-line-print-directory activate)
  "print current directory when go up line"
  (dired-print-current-dir-and-file))