; Fix an oversight in tramp-smb.el

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index a49dbbdb39aff8e92cc5755d9fce45158cf45789..d1a922813db5049fe44ddd19b8f363e151d63d47 100644 (file)
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -1801,7 +1801,7 @@ Result is the list (LOCALNAME MODE SIZE MTIME)."
                    (if (string-match-p "D" mode) "d" "-")
                    (mapconcat
                     (lambda (_x) "") "    "
-                    (concat "r" (if (string-match "R" mode) "-" "w") "x")))
+                    (concat "r" (if (string-match-p "R" mode) "-" "w") "x")))
             line (substring line 0 -6))
          (cl-return))