1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index a49dbbdb39a..d1a922813db 100644
--- 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))