From: Sam Steingold <sds@gnu.org>
Date: Sun, 15 Oct 2023 15:51:34 +0000 (-0400)
Subject: Fixup for "no file modes on windows and dos"
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e232387356a9dbfd6f51cb33aa48c9dfc57c872;p=emacs.git

Fixup for "no file modes on windows and dos"

* lisp/ls-lisp.el (ls-lisp-format): Keep the first group of
permissions even when `modes' is not in `ls-lisp-verbosity'.
---

diff --git a/lisp/ls-lisp.el b/lisp/ls-lisp.el
index 5b264554005..c576819c5d0 100644
--- a/lisp/ls-lisp.el
+++ b/lisp/ls-lisp.el
@@ -811,7 +811,7 @@ SWITCHES and TIME-INDEX give the full switch list and time data."
 			  (fceiling (/ file-size 1024.0)))))
             (if (memq 'modes ls-lisp-verbosity)
 	        drwxrwxrwx      ; modes string
-              (substring drwxrwxrwx 0 1)) ; "d" or "-" for directory vs file
+              (substring drwxrwxrwx 0 4)) ; "d" or "-" for directory vs file
 	    (if (memq 'links ls-lisp-verbosity)
 		(format "%3d" (file-attribute-link-number file-attr)))
 	    ;; Numeric uid/gid are more confusing than helpful;