Mercurial > emacs
comparison lisp/net/tramp-smb.el @ 105572:be1e297cc4d5
(tramp-smb-do-file-attributes-with-stat): Let-bind `size'.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 12 Oct 2009 07:02:59 +0000 |
| parents | 59dc4314dfa4 |
| children | 13878abadf01 |
comparison
equal
deleted
inserted
replaced
| 105571:9325921bfcde | 105572:be1e297cc4d5 |
|---|---|
| 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)) |
| 522 id link uid gid atime mtime ctime mode inode) | 522 size id link uid gid atime mtime ctime mode inode) |
| 523 (tramp-smb-send-command vec (format "stat \"%s\"" file)) | 523 (tramp-smb-send-command vec (format "stat \"%s\"" file)) |
| 524 | 524 |
| 525 ;; Loop the listing. | 525 ;; Loop the listing. |
| 526 (goto-char (point-min)) | 526 (goto-char (point-min)) |
| 527 (unless (re-search-forward tramp-smb-errors nil t) | 527 (unless (re-search-forward tramp-smb-errors nil t) |