X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/6e5d9ec5684c8888ad2a8d6a2d6647c0d90d9ea2..ca2ebe63eba27e234394e9c5c20229dcdce87b33:/lisp/dired.el

diff --git a/lisp/dired.el b/lisp/dired.el
index 864d1b6f87..19d0b104ac 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -597,7 +597,8 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
 	;; We need this to make the root dir have a header line as all
 	;; other subdirs have:
 	(goto-char (point-min))
-	(dired-insert-headerline default-directory)
+        (if (not (looking-at "^  /.*:$"))
+            (dired-insert-headerline default-directory))
 	;; can't run dired-after-readin-hook here, it may depend on the subdir
 	;; alist to be OK.
 	)
@@ -2237,7 +2238,7 @@ A prefix argument says to unflag those files instead."
      "auto save file")))
 
 (defvar dired-garbage-files-regexp
-  "\\.log$\\|\\.toc$\\|.dvi$|\\.bak$\\|\\.orig$\\|\\.rej$" 
+  "\\.log$\\|\\.toc$\\|\\.dvi$\\|\\.bak$\\|\\.orig$\\|\\.rej$" 
   "*Regular expression to match \"garbage\" files for `dired-flag-garbage-files'.")
 
 (defun dired-flag-garbage-files ()