From ea15df4061175fe9e0c9f52927811f8f86c30121 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Thu, 27 May 1999 09:34:36 +0000 Subject: [PATCH] (dired-insert-subdir-doinsert): Check that the headerline does not exist already. --- lisp/dired-aux.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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)) -- 2.39.5