Mercurial > emacs
comparison lisp/net/tramp-smb.el @ 105554:59dc4314dfa4
Fix last change.
| author | Michael Albinus <michael.albinus@gmx.de> |
|---|---|
| date | Sun, 11 Oct 2009 15:01:27 +0000 |
| parents | 2025d7d04cb9 |
| children | be1e297cc4d5 |
comparison
equal
deleted
inserted
replaced
| 105553:4d6b5be8e903 | 105554:59dc4314dfa4 |
|---|---|
| 480 (unless id-format (setq id-format 'integer)) | 480 (unless id-format (setq id-format 'integer)) |
| 481 (with-parsed-tramp-file-name filename nil | 481 (with-parsed-tramp-file-name filename nil |
| 482 (with-file-property v localname (format "file-attributes-%s" id-format) | 482 (with-file-property v localname (format "file-attributes-%s" id-format) |
| 483 (if (and (tramp-smb-get-share localname) | 483 (if (and (tramp-smb-get-share localname) |
| 484 (tramp-smb-get-cifs-capabilities v)) | 484 (tramp-smb-get-cifs-capabilities v)) |
| 485 (tramp-do-file-attributes-with-stat v localname id-format) | 485 (tramp-smb-do-file-attributes-with-stat v localname id-format) |
| 486 ;; Reading just the filename entry via "dir localname" is not | 486 ;; Reading just the filename entry via "dir localname" is not |
| 487 ;; possible, because when filename is a directory, some | 487 ;; possible, because when filename is a directory, some |
| 488 ;; smbclient versions return the content of the directory, and | 488 ;; smbclient versions return the content of the directory, and |
| 489 ;; other versions don't. Therefore, the whole content of the | 489 ;; other versions don't. Therefore, the whole content of the |
| 490 ;; upper directory is retrieved, and the entry of the filename | 490 ;; upper directory is retrieved, and the entry of the filename |
| 511 (nth 1 entry) ;8 mode | 511 (nth 1 entry) ;8 mode |
| 512 nil ;9 gid weird | 512 nil ;9 gid weird |
| 513 inode ;10 inode number | 513 inode ;10 inode number |
| 514 device))))))) ;11 file system number | 514 device))))))) ;11 file system number |
| 515 | 515 |
| 516 (defun tramp-do-file-attributes-with-stat | 516 (defun tramp-smb-do-file-attributes-with-stat |
| 517 (vec localname &optional id-format) | 517 (vec localname &optional id-format) |
| 518 "Implement `file-attributes' for Tramp files using stat command." | 518 "Implement `file-attributes' for Tramp files using stat command." |
| 519 (tramp-message vec 5 "file attributes with stat: %s" localname) | 519 (tramp-message vec 5 "file attributes with stat: %s" localname) |
| 520 (with-current-buffer (tramp-get-buffer vec) | 520 (with-current-buffer (tramp-get-buffer vec) |
| 521 (let* ((file (tramp-smb-get-localname localname nil)) | 521 (let* ((file (tramp-smb-get-localname localname nil)) |