dired-my-append-buffer-name-hint

40_dired.el

  (defun dired-my-append-buffer-name-hint ()
	"Append a auxiliary string [Dir] to a name of dired buffer."
	(when (eq major-mode 'dired-mode)
	  (let* ((dir (expand-file-name list-buffers-directory))
			 ;; Add a drive letter for Windows
			 (drive (if (and (eq 'system-type 'windows-nt)
							 (string-match "^\\([a-zA-Z]:\\)/" dir))
						(match-string 1 dir) "")))
		(rename-buffer (concat (buffer-name) " [" drive "dir]") t))))
  (add-hook 'dired-mode-hook 'dired-my-append-buffer-name-hint)