mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-09 00:11:49 -07:00
Code Issues Projects Releases Wiki Activity

Fix 'dired--get-ellipsis-length'

Browse source 
* lisp/dired.el (dired--get-ellipsis-length): Handle glyphs with
faces.  (Bug#67161)
This commit is contained in:
Eli Zaretskii 2023-11-26 12:46:53 +02:00
parent 47e313e980
commit dd5d2b3d3d
1 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/dired.el
View file

@ -2021,8 +2021,12 @@ mouse-2: visit this file in other window"
(let* ((dt (or (window-display-table)
buffer-display-table
standard-display-table))
(glyphs (and dt (display-table-slot dt 'selective-display))))
(string-width (if glyphs (concat glyphs) "..."))))
(glyphs (and dt (display-table-slot dt 'selective-display)))
(vlen (length glyphs))
(char-glyphs (make-vector vlen nil)))
(dotimes (i vlen)
(aset char-glyphs i (glyph-char (aref glyphs i))))
(string-width (if glyphs (concat char-glyphs) "..."))))
(defun dired--get-filename-display-length ()
"Return maximum display length of filename.