Commit f4566fe9 authored by Michael Albinus's avatar Michael Albinus

* net/tramp-adb.el (tramp-do-parse-file-attributes-with-ls):

(tramp-adb-handle-directory-files-and-attributes): Fix typos.
parent 838cf298
2013-01-05 Michael Albinus <michael.albinus@gmx.de>
* net/tramp-adb.el (tramp-do-parse-file-attributes-with-ls):
(tramp-adb-handle-directory-files-and-attributes): Fix typos.
2013-01-05 Jürgen Hötzel <juergen@archlinux.org>
* net/tramp-adb.el (tramp-adb-handle-file-attributes): More robust
......
......@@ -325,7 +325,7 @@ pass to the OPERATION."
mod-string
;; fake
t 1
(tramp-get-device v))
(tramp-get-device vec))
file-properties)))
file-properties)))
......@@ -335,7 +335,7 @@ pass to the OPERATION."
(when (file-directory-p directory)
(with-parsed-tramp-file-name (expand-file-name directory) nil
(with-tramp-file-property
v localname (format "directory-files-attributes-%s-%s-%s-s"
v localname (format "directory-files-attributes-%s-%s-%s-%s"
full match id-format nosort)
(tramp-adb-barf-unless-okay
v (format "%s -a -l %s"
......@@ -343,13 +343,17 @@ pass to the OPERATION."
(tramp-shell-quote-argument localname)) "")
(with-current-buffer (tramp-get-buffer v)
(tramp-adb-sh-fix-ls-output)
(let ((result (tramp-do-parse-file-attributes-with-ls v (or id-format 'integer))))
(let ((result (tramp-do-parse-file-attributes-with-ls
v (or id-format 'integer))))
(when full
(setq result (mapcar
(lambda (x) (cons (expand-file-name (car x) directory) (cdr x)))
result)))
(setq result
(mapcar
(lambda (x)
(cons (expand-file-name (car x) directory) (cdr x)))
result)))
(unless nosort
(setq result (sort result (lambda (x y) (string< (car x) (car y))))))
(setq result
(sort result (lambda (x y) (string< (car x) (car y))))))
(delq nil
(mapcar (lambda (x)
(if (or (not match) (string-match match (car x)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment