diff options
| author | André Spiegel <spiegel@gnu.org> | 1998-06-11 15:32:33 +0000 |
|---|---|---|
| committer | André Spiegel <spiegel@gnu.org> | 1998-06-11 15:32:33 +0000 |
| commit | 667f24aa0fe2fa74ae63455f503320c0298dcb5f (patch) | |
| tree | 5eb0783f695d8692fe9d98bc0d03ba0a74c5e258 | |
| parent | 24195345b00cc4eea66171497b31a4b936c9c940 (diff) | |
| download | emacs-667f24aa0fe2fa74ae63455f503320c0298dcb5f.tar.gz | |
(dired-readin): Insert headerline only if necessary. (Not in
recursive listings.)
| -rw-r--r-- | lisp/dired.el | 3 |
1 files changed, 2 insertions, 1 deletions
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. ) |