Mercurial > emacs
comparison lisp/net/tramp-smb.el @ 105249:99d98ed749b9
* net/tramp-smb.el (tramp-smb-handle-directory-files-and-attributes):
Use `tramp-compat-handle-file-attributes'.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Mon, 28 Sep 2009 11:56:13 +0000 |
| parents | 74d482177a44 |
| children | 0c6bc9d2b10c |
comparison
equal
deleted
inserted
replaced
| 105248:ebd8445069df | 105249:99d98ed749b9 |
|---|---|
| 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 ;; 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) |
| 333 "Like `file-attributes' for Tramp files." | 331 "Like `file-attributes' for Tramp files." |
| 334 ;; Reading just the filename entry via "dir localname" is not | 332 ;; Reading just the filename entry via "dir localname" is not |