diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2013-01-05 14:48:16 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2013-01-05 14:48:16 +0100 |
| commit | f4566fe987dfcce3aedeb9ab505474408071904f (patch) | |
| tree | 4f3c327f83e06b7957d773609fa12ca7eaccbb7a /lisp/net | |
| parent | 838cf2981c3ce4fe6e1b7aa6c90c947c6d4bf027 (diff) | |
| download | emacs-f4566fe987dfcce3aedeb9ab505474408071904f.tar.gz emacs-f4566fe987dfcce3aedeb9ab505474408071904f.tar.bz2 emacs-f4566fe987dfcce3aedeb9ab505474408071904f.zip | |
* net/tramp-adb.el (tramp-do-parse-file-attributes-with-ls):
(tramp-adb-handle-directory-files-and-attributes): Fix typos.
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/tramp-adb.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el index b555746620a..fd8fdb51796 100644 --- a/lisp/net/tramp-adb.el +++ b/lisp/net/tramp-adb.el @@ -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))) |