diff options
| author | Michael Albinus | 2009-09-28 11:56:13 +0000 |
|---|---|---|
| committer | Michael Albinus | 2009-09-28 11:56:13 +0000 |
| commit | f742666ae3fe26bd51592cfbaff44ab19d7895c1 (patch) | |
| tree | fff4f93b55def8f73f84514f49f05b4a7822ad58 /lisp | |
| parent | 03db0efcff8ffd1f40ad2df099bcece1f706181c (diff) | |
| download | emacs-f742666ae3fe26bd51592cfbaff44ab19d7895c1.tar.gz emacs-f742666ae3fe26bd51592cfbaff44ab19d7895c1.zip | |
* net/tramp-smb.el (tramp-smb-handle-directory-files-and-attributes):
Use `tramp-compat-handle-file-attributes'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp-smb.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 26edcf8b1c8..86cbe641d99 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el | |||
| @@ -323,10 +323,8 @@ PRESERVE-UID-GID is completely ignored." | |||
| 323 | "Like `directory-files-and-attributes' for Tramp files." | 323 | "Like `directory-files-and-attributes' for Tramp files." |
| 324 | (mapcar | 324 | (mapcar |
| 325 | (lambda (x) | 325 | (lambda (x) |
| 326 | ;; We cannot call `file-attributes' for backward compatibility reasons. | 326 | (cons x (tramp-compat-handle-file-attributes |
| 327 | ;; Its optional parameter ID-FORMAT is introduced with Emacs 22. | 327 | (if full x (expand-file-name x directory)) id-format))) |
| 328 | (cons x (tramp-smb-handle-file-attributes | ||
| 329 | (if full x (expand-file-name x directory)) id-format))) | ||
| 330 | (directory-files directory full match nosort))) | 328 | (directory-files directory full match nosort))) |
| 331 | 329 | ||
| 332 | (defun tramp-smb-handle-file-attributes (filename &optional id-format) | 330 | (defun tramp-smb-handle-file-attributes (filename &optional id-format) |