Mercurial > emacs
changeset 22436:457d119af57c
(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 | 98b909125b87 |
| children | 982bf2f2c1de |
| files | lisp/dired.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
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. )