mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(dired-readin): Insert headerline only if necessary. (Not in

Browse Source 
recursive listings.)
This commit is contained in:
André Spiegel 1998-06-11 15:32:33 +00:00
parent f4b5ab4cea
commit 1191c61b53
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/dired.el
View File

@ -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.
)