Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix misalignment of entries created by Dired file operations

Browse source 
* lisp/dired.el (dired-insert-directory): Insert leading space
if absent before calling dired-align-file.
This commit is contained in:
Po Lu 2024-04-09 15:24:30 +08:00
parent b31f7e67de
commit 22386c5634
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/dired.el
View file

@ -1740,8 +1740,16 @@ see `dired-use-ls-dired' for more details.")
(file-expand-wildcards (cdr dir-wildcard))))
(let ((beg (point)))
(insert-directory f switches nil nil)
;; Re-align fields, if necessary.
(dired-align-file beg (point))))))
;; `dired-align-file' doesn't fare well with dired
;; implementations that don't indent entries by one
;; column, which in all known implementations is
;; equivalent to not supporting `--dired'.
(save-excursion
(goto-char beg)
(unless (looking-at " ")
(insert " ")))
;; Re-align fields, if necessary.
(dired-align-file beg (point))))))
(t
(insert-directory dir switches wildcard (not wildcard))))
;; Quote certain characters, unless ls quoted them for us.