Mercurial > emacs
comparison lisp/net/tramp-smb.el @ 105276:0c6bc9d2b10c
(tramp-smb-handle-directory-files-and-attributes): Use
tramp-compat-file-attributes rather than nonexistent
tramp-compat-handle-file-attributes.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Tue, 29 Sep 2009 02:43:46 +0000 |
| parents | 99d98ed749b9 |
| children | 5077632c39ef |
comparison
equal
deleted
inserted
replaced
| 105275:b78ceb253d15 | 105276:0c6bc9d2b10c |
|---|---|
| 321 (defun tramp-smb-handle-directory-files-and-attributes | 321 (defun tramp-smb-handle-directory-files-and-attributes |
| 322 (directory &optional full match nosort id-format) | 322 (directory &optional full match nosort id-format) |
| 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 (cons x (tramp-compat-handle-file-attributes | 326 (cons x (tramp-compat-file-attributes |
| 327 (if full x (expand-file-name x directory)) id-format))) | 327 (if full x (expand-file-name x directory)) id-format))) |
| 328 (directory-files directory full match nosort))) | 328 (directory-files directory full match nosort))) |
| 329 | 329 |
| 330 (defun tramp-smb-handle-file-attributes (filename &optional id-format) | 330 (defun tramp-smb-handle-file-attributes (filename &optional id-format) |
| 331 "Like `file-attributes' for Tramp files." | 331 "Like `file-attributes' for Tramp files." |