# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 897579153 0
# Node ID 457d119af57c4a17279d264bb583dd5f6b5fdfd5
# Parent  98b909125b87dfe19687f83d13d4f08df581a718
(dired-readin): Insert headerline only if necessary.  (Not in
recursive listings.)

diff -r 98b909125b87 -r 457d119af57c lisp/dired.el
--- a/lisp/dired.el	Thu Jun 11 07:38:23 1998 +0000
+++ b/lisp/dired.el	Thu Jun 11 15:32:33 1998 +0000
@@ -597,7 +597,8 @@
 	;; 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.
 	)