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) |