Mercurial > emacs

diff lisp/dired.el @ 22436:457d119af57c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-readin): Insert headerline only if necessary. (Not in recursive listings.)
author André Spiegel <spiegel@gnu.org>
date Thu, 11 Jun 1998 15:32:33 +0000
parents 80bf6e97360b
children 18f446fb0b8d
line wrap: on
line diff
--- 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.
 	)