procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix display of free disk space in Dired

Browse source 
* lisp/dired.el (dired--insert-disk-space): Fix 'first' display on
MS-Windows.
(dired-free-space): Clarify the meaning of 'first'.
This commit is contained in:
Eli Zaretskii 2021-12-02 13:04:45 +02:00
parent e2494bdaee
commit aa6a05c146
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/dired.el
View file

@ -210,12 +210,13 @@ If a character, new links are unconditionally marked with that character."
:group 'dired-mark)
(defcustom dired-free-space 'first
"Whether to display free disk space in dired buffers.
"Whether and how to display the amount of free disk space in Dired buffers.
If nil, don't display.
If `separate', display on a separate line (along with used count).
If `first', display the free disk space on the first line."
If `first', display only the free disk space on the first line,
following the directory name."
:type '(choice (const :tag "On a separate line" separate)
(const :tag "On the first line" first)
(const :tag "On the first line, after directory name" first)
(const :tag "Don't display" nil))
:version "29.1"
:group 'dired)
@ -1658,7 +1659,10 @@ see `dired-use-ls-dired' for more details.")
(point))
((eq dired-free-space 'first)
(goto-char beg)
(when (and (looking-at " */")
(when (and (looking-at
(if (memq system-type '(windows-nt ms-dos))
" *[A-Za-z]:/"
" */"))
(progn
(end-of-line)
(eq (char-after (1- (point))) ?:)))