bug#58867: dired-readin: Wrong type argument: arrayp, nil

[daanturo]

-    (while (re-search-forward "^  /" nil t 1)
+    (while (re-search-forward
+            (if (memq system-type '(windows-nt ms-dos))
+                "^  \\([a-zA-Z]:/\\|//\\)"
+              "^  /")
+            nil t 1)
       (let ((bound (line-end-position))
             (segment-start (point))
             (inhibit-read-only t)
-            (dir "/"))
+            (dir (substring (match-string 1) 2)))


Substring group #1 doesn't exist for the regexp "^ /", which is the case to
    search for non-Windows environments.

-- 
Daanturo.