(dired-virtual): Don't use `dired-insert-headerline'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d95571394d5592453d34a95295fb9ac2fc8adb31..c38eb58672cffe4366d885aacbbc8c22bb1b6aa6 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2005-10-25  Masatake YAMATO  <jet@gyve.org>
+
+       * dired-x.el (dired-virtual): Don't use `dired-insert-headerline'.
+
 2005-10-25  Michael Cadilhac  <michael.cadilhac-@t-lrde.epita.fr>  (tiny change)
 
        * play/blackbox.el (blackbox-redefine-key): New function.

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 50c52f0ab6bcd19df859523438d0e113b92396c3..7c6adbe8448f1eedbfbef20530b06d3cd7c5ab25 100644 (file)
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -678,7 +678,9 @@ you can relist single subdirs using \\[dired-do-redisplay]."
   ;; decent subdir headerline:
   (goto-char (point-min))
   (or (looking-at dired-subdir-regexp)
-      (dired-insert-headerline default-directory))
+      (insert "  " 
+             (directory-file-name (file-name-directory default-directory))
+             ":\n"))
   (dired-mode dirname (or switches dired-listing-switches))
   (setq mode-name "Virtual Dired"
         revert-buffer-function 'dired-virtual-revert)