[Emacs-diffs] emacs/lisp/net tramp-smb.el

[Michael Albinus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Michael Albinus <albinus>       09/09/28 11:56:13

Modified files:
        lisp/net       : tramp-smb.el 

Log message:
        * net/tramp-smb.el (tramp-smb-handle-directory-files-and-attributes):
        Use `tramp-compat-handle-file-attributes'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/net/tramp-smb.el?cvsroot=emacs&r1=1.48&r2=1.49

Patches:
Index: tramp-smb.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/net/tramp-smb.el,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -b -r1.48 -r1.49
--- tramp-smb.el        22 Jun 2009 21:08:29 -0000      1.48
+++ tramp-smb.el        28 Sep 2009 11:56:13 -0000      1.49
@@ -323,9 +323,7 @@
   "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
+     (cons x (tramp-compat-handle-file-attributes
        (if full x (expand-file-name x directory)) id-format)))
    (directory-files directory full match nosort)))