diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-11-28 16:38:49 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-11-28 16:38:49 +0100 |
| commit | 9b9c70b7dbaa001d2f78a15fd1f3aaa8fce44eef (patch) | |
| tree | cfa695721fbefaa5dbe0366e349288d2905fd814 /lisp/net/tramp-smb.el | |
| parent | 1ca436a33c7de612e44409841d6bed0fe6268141 (diff) | |
| download | emacs-9b9c70b7dbaa001d2f78a15fd1f3aaa8fce44eef.tar.gz | |
Tramp cleanup
* lisp/net/tramp-sh.el (tramp-sh-handle-file-name-all-completions)
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-file-name-all-completions):
* lisp/net/tramp-smb.el (tramp-smb-read-file-entry):
Use `string-match-p'.
* lisp/net/tramp-rclone.el (tramp-rclone-maybe-open-connection):
Set file properties more robust.
* lisp/net/tramp-sh.el (tramp-stat-marker)
(tramp-convert-file-attributes): Add tramp-autoload cookie.
Diffstat (limited to 'lisp/net/tramp-smb.el')
| -rw-r--r-- | lisp/net/tramp-smb.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 23b5176b528..a49dbbdb39a 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el @@ -1796,12 +1796,12 @@ Result is the list (LOCALNAME MODE SIZE MTIME)." (if (string-match "\\([ACDEHNORrsSTV]+\\)?$" line) (setq mode (or (match-string 1 line) "") - mode (save-match-data (format + mode (format "%s%s" - (if (string-match "D" mode) "d" "-") + (if (string-match-p "D" mode) "d" "-") (mapconcat (lambda (_x) "") " " - (concat "r" (if (string-match "R" mode) "-" "w") "x")))) + (concat "r" (if (string-match "R" mode) "-" "w") "x"))) line (substring line 0 -6)) (cl-return)) |