678 |
;; decent subdir headerline: |
;; decent subdir headerline: |
679 |
(goto-char (point-min)) |
(goto-char (point-min)) |
680 |
(or (looking-at dired-subdir-regexp) |
(or (looking-at dired-subdir-regexp) |
681 |
(dired-insert-headerline default-directory)) |
(insert " " |
682 |
|
(directory-file-name (file-name-directory default-directory)) |
683 |
|
":\n")) |
684 |
(dired-mode dirname (or switches dired-listing-switches)) |
(dired-mode dirname (or switches dired-listing-switches)) |
685 |
(setq mode-name "Virtual Dired" |
(setq mode-name "Virtual Dired" |
686 |
revert-buffer-function 'dired-virtual-revert) |
revert-buffer-function 'dired-virtual-revert) |