]> git.eshelyaron.com Git - emacs.git/commitdiff
* net/tramp-sh.el (tramp-sh-handle-file-name-all-completions):
authorMichael Albinus <michael.albinus@gmx.de>
Tue, 22 Apr 2014 10:43:01 +0000 (12:43 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Tue, 22 Apr 2014 10:43:01 +0000 (12:43 +0200)
Remove test messages.
(tramp-do-copy-or-rename-file-out-of-band): Do not quote `source'
and `target' twice.

lisp/ChangeLog
lisp/net/tramp-sh.el

index 169e6bce49dfc76be7cbf7c669de791263995f6d..a2cd739a53d29f15eb6e343cd3a60dcf90c1df8a 100644 (file)
@@ -1,3 +1,10 @@
+2014-04-22  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-sh.el (tramp-sh-handle-file-name-all-completions):
+       Remove test messages.
+       (tramp-do-copy-or-rename-file-out-of-band): Do not quote `source'
+       and `target' twice.
+
 2014-04-21  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * dframe.el (dframe-get-focus): Remove `hook' argument (bug#17311).
index ac57cbb2780e9911ec1af96e76c72539b5c32bbd..9c86c8c48bd92c0ab38d03c5fadc27c68a9d66d6 100644 (file)
@@ -1725,15 +1725,6 @@ be non-negative integers."
                                 'completion-ignore-case))
                              1 0)))
 
-             (tramp-message v 1 "Tramp test: %s" (tramp-get-ls-command v))
-             (tramp-send-command
-              v
-              (format "\\cd %s 2>&1 && %s %s -a 2>/dev/null"
-                      (tramp-shell-quote-argument localname)
-                      (tramp-get-ls-command v)
-                      (if (zerop (length filename))
-                          "."
-                        (concat (tramp-shell-quote-argument filename) "* -d"))))
               (format (concat
                        "(\\cd %s 2>&1 && (%s %s -a 2>/dev/null"
                        ;; `ls' with wildcard might fail with `Argument
@@ -1765,7 +1756,6 @@ be non-negative integers."
 
            ;; Now grab the output.
            (with-current-buffer (tramp-get-buffer v)
-            (tramp-message v 1 "Tramp test: %s" (buffer-string))
              (goto-char (point-max))
 
              ;; Check result code, found in last line of output.
@@ -2371,8 +2361,7 @@ The method used must be an out-of-band method."
                                  (append
                                   copy-args
                                   (list
-                                   (shell-quote-argument source)
-                                   (shell-quote-argument target)
+                                   source target
                                    "&&" "echo" "tramp_exit_status" "0"
                                    "||" "echo" "tramp_exit_status" "1"))))))
                  (tramp-message