diff options
| author | Michael Albinus | 2014-11-02 12:22:56 +0100 |
|---|---|---|
| committer | Michael Albinus | 2014-11-02 12:22:56 +0100 |
| commit | d228120da42885de7d64c7878bd21b2e04abd356 (patch) | |
| tree | 75db3468612f92da181c1e5def396c45f99f6c62 | |
| parent | b039c2ec5768c5705d0340c59dbacda6376c47c2 (diff) | |
| download | emacs-d228120da42885de7d64c7878bd21b2e04abd356.tar.gz emacs-d228120da42885de7d64c7878bd21b2e04abd356.zip | |
* net/tramp-adb.el (tramp-adb-handle-process-file): Do not raise
an error when the command fails; the return code must indicate.
(tramp-adb-send-command-and-check): Fix docstring.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/net/tramp-adb.el | 17 |
2 files changed, 16 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0c0f003204c..07231507bae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2014-11-02 Michael Albinus <michael.albinus@gmx.de> | ||
| 2 | |||
| 3 | * net/tramp-adb.el (tramp-adb-handle-process-file): Do not raise | ||
| 4 | an error when the command fails; the return code must indicate. | ||
| 5 | (tramp-adb-send-command-and-check): Fix docstring. | ||
| 6 | |||
| 1 | 2014-11-01 Michael Albinus <michael.albinus@gmx.de> | 7 | 2014-11-01 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 8 | ||
| 3 | * net/tramp-cache.el (tramp-get-file-property) | 9 | * net/tramp-cache.el (tramp-get-file-property) |
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el index 88e52fe0199..639f07b2f1d 100644 --- a/lisp/net/tramp-adb.el +++ b/lisp/net/tramp-adb.el | |||
| @@ -794,11 +794,13 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored." | |||
| 794 | ;; directory. | 794 | ;; directory. |
| 795 | (condition-case nil | 795 | (condition-case nil |
| 796 | (progn | 796 | (progn |
| 797 | (setq ret 0) | 797 | (setq ret |
| 798 | (tramp-adb-barf-unless-okay | 798 | (if (tramp-adb-send-command-and-check |
| 799 | v (format "(cd %s; %s)" | 799 | v |
| 800 | (tramp-shell-quote-argument localname) command) | 800 | (format "(cd %s; %s)" |
| 801 | "") | 801 | (tramp-shell-quote-argument localname) command)) |
| 802 | ;; Set return status accordingly. | ||
| 803 | 0 1)) | ||
| 802 | ;; We should add the output anyway. | 804 | ;; We should add the output anyway. |
| 803 | (when outbuf | 805 | (when outbuf |
| 804 | (with-current-buffer outbuf | 806 | (with-current-buffer outbuf |
| @@ -1031,8 +1033,9 @@ This happens for Android >= 4.0." | |||
| 1031 | (defun tramp-adb-send-command-and-check | 1033 | (defun tramp-adb-send-command-and-check |
| 1032 | (vec command) | 1034 | (vec command) |
| 1033 | "Run COMMAND and check its exit status. | 1035 | "Run COMMAND and check its exit status. |
| 1034 | Sends `echo $?' along with the COMMAND for checking the exit status. If | 1036 | Sends `echo $?' along with the COMMAND for checking the exit |
| 1035 | COMMAND is nil, just sends `echo $?'. Returns the exit status found." | 1037 | status. If COMMAND is nil, just sends `echo $?'. Returns nil if |
| 1038 | the exit status is not equal 0, and t otherwise." | ||
| 1036 | (tramp-adb-send-command | 1039 | (tramp-adb-send-command |
| 1037 | vec (if command | 1040 | vec (if command |
| 1038 | (format "%s; echo tramp_exit_status $?" command) | 1041 | (format "%s; echo tramp_exit_status $?" command) |