# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 927797676 0
# Node ID 8c5bc687c346f5fc408d4d458cf438f621608ff7
# Parent  69377a75bead926d2e08c4829180d079b803774b
(dired-insert-subdir-doinsert): Check that the
headerline does not exist already.

diff -r 69377a75bead -r 8c5bc687c346 lisp/dired-aux.el
--- a/lisp/dired-aux.el	Wed May 26 17:14:33 1999 +0000
+++ b/lisp/dired-aux.el	Thu May 27 09:34:36 1999 +0000
@@ -1619,7 +1619,8 @@
     ;;  moves point.
     ;;  Need a marker for END as this inserts text.
     (goto-char begin)
-    (dired-insert-headerline dirname)
+    (if (not (looking-at "^  /.*:$"))
+	(dired-insert-headerline dirname))
     ;; point is now like in dired-build-subdir-alist
     (prog1
 	(list begin (marker-position end))