]> git.eshelyaron.com Git - emacs.git/commitdiff
* net/tramp-smb.el (tramp-smb-handle-directory-files-and-attributes):
authorMichael Albinus <michael.albinus@gmx.de>
Mon, 28 Sep 2009 11:56:13 +0000 (11:56 +0000)
committerMichael Albinus <michael.albinus@gmx.de>
Mon, 28 Sep 2009 11:56:13 +0000 (11:56 +0000)
Use `tramp-compat-handle-file-attributes'.

lisp/net/tramp-smb.el

index 26edcf8b1c884ac857b7441c10f6fc45b251a4bb..86cbe641d99fc98d8de92373ec9d49498158babf 100644 (file)
@@ -323,10 +323,8 @@ PRESERVE-UID-GID is completely ignored."
   "Like `directory-files-and-attributes' for Tramp files."
   (mapcar
    (lambda (x)
-     ;; We cannot call `file-attributes' for backward compatibility reasons.
-     ;; Its optional parameter ID-FORMAT is introduced with Emacs 22.
-     (cons x (tramp-smb-handle-file-attributes
-       (if full x (expand-file-name x directory)) id-format)))
+     (cons x (tramp-compat-handle-file-attributes
+             (if full x (expand-file-name x directory)) id-format)))
    (directory-files directory full match nosort)))
 
 (defun tramp-smb-handle-file-attributes (filename &optional id-format)