From: Andreas Schwab <schwab@suse.de>
Date: Thu, 27 May 1999 09:34:36 +0000 (+0000)
Subject: (dired-insert-subdir-doinsert): Check that the
X-Git-Tag: emacs-20.4~165
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea15df4061175fe9e0c9f52927811f8f86c30121;p=emacs.git

(dired-insert-subdir-doinsert): Check that the
headerline does not exist already.
---

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 8ef3c297a62..8a71d273b2d 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -1619,7 +1619,8 @@ This function takes some pains to conform to `ls -lR' output."
     ;;  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))