Mercurial > emacs
comparison lisp/net/tramp-compat.el @ 91790:c568e49dbbc5
(tramp-compat-file-attributes): Add comment.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 12 Feb 2008 03:46:03 +0000 |
| parents | b9e8ab94c460 |
| children | 9ee1ca8ab653 |
comparison
equal
deleted
inserted
replaced
| 91789:0048d198c131 | 91790:c568e49dbbc5 |
|---|---|
| 195 (defun tramp-compat-file-attributes (filename &optional id-format) | 195 (defun tramp-compat-file-attributes (filename &optional id-format) |
| 196 "Like `file-attributes' for Tramp files (compat function)." | 196 "Like `file-attributes' for Tramp files (compat function)." |
| 197 (cond | 197 (cond |
| 198 ((or (null id-format) (eq id-format 'integer)) | 198 ((or (null id-format) (eq id-format 'integer)) |
| 199 (file-attributes filename)) | 199 (file-attributes filename)) |
| 200 ;; FIXME: shouldn't that be tramp-file-p or somesuch? | |
| 200 ((file-remote-p filename) | 201 ((file-remote-p filename) |
| 201 (funcall (symbol-function 'tramp-handle-file-attributes) | 202 (funcall (symbol-function 'tramp-handle-file-attributes) |
| 202 filename id-format)) | 203 filename id-format)) |
| 203 (t (condition-case nil | 204 (t (condition-case nil |
| 204 (funcall (symbol-function 'file-attributes) filename id-format) | 205 (funcall (symbol-function 'file-attributes) filename id-format) |