From 1191c61b530806d48c1e1c4fc52edbbc492ec0e1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Thu, 11 Jun 1998 15:32:33 +0000 Subject: [PATCH] (dired-readin): Insert headerline only if necessary. (Not in recursive listings.) --- lisp/dired.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/dired.el b/lisp/dired.el index 864d1b6f876..07d119f98b4 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. ) -- 2.39.5