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

Fix alignment of columns in Dired display with ls-lisp

Browse source 
* lisp/dired.el (dired-align-file): Don't realign the first column
of file's data.  (Bug#67953)
This commit is contained in:
Eli Zaretskii 2023-12-23 13:03:09 +02:00
parent 44be4e92ec
commit b09765a711
1 changed files with 15 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
lisp/dired.el
View file

@ -1613,14 +1613,21 @@ BEG..END is the line where the file info is located."
;; the beginning or the end of the next field, depending on
;; whether this field is left or right aligned).
(align-pt-offset
(save-excursion
(goto-char other)
(move-to-column curcol)
(when (looking-at
(concat
(if (eq (char-before) ?\s) " *" "[^ ]* *")
(if num-align "[0-9][^ ]*")))
(- (match-end 0) (match-beginning 0)))))
;; It is never TRT to realign the first column of
;; file's data. But the code below does attempt to
;; realign the first column if there's no whitespace
;; before it, so we force it to let the first column
;; alone.
(if (zerop curcol)
0
(save-excursion
(goto-char other)
(move-to-column curcol)
(when (looking-at
(concat
(if (eq (char-before) ?\s) " *" "[^ ]* *")
(if num-align "[0-9][^ ]*")))
(- (match-end 0) (match-beginning 0))))))
;; Now, the number of spaces to insert is align-pt-offset
;; minus the distance to the equivalent point on the
;; current line.