]> git.eshelyaron.com Git - emacs.git/commitdiff
* net/tramp.el (tramp-perl-file-attributes)
authorMichael Albinus <michael.albinus@gmx.de>
Tue, 20 Jul 2010 10:29:05 +0000 (12:29 +0200)
committerMichael Albinus <michael.albinus@gmx.de>
Tue, 20 Jul 2010 10:29:05 +0000 (12:29 +0200)
(tramp-perl-directory-files-and-attributes): Don't pass "$3".
(tramp-maybe-open-connection): Use `async-args' and `gw-args' in
front of `login-args'.

lisp/ChangeLog
lisp/net/tramp.el

index 2729668cea5b5f639d63787f5c622383100e9187..ecafde3d9bbc8314e5ece1aad93ed5c58bc203d9 100644 (file)
@@ -1,3 +1,10 @@
+2010-07-20  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-perl-file-attributes)
+       (tramp-perl-directory-files-and-attributes): Don't pass "$3".
+       (tramp-maybe-open-connection): Use `async-args' and `gw-args' in
+       front of `login-args'.
+
 2010-07-19  Juanma Barranquero  <lekktu@gmail.com>
 
        * time.el (display-time-world-mode): Define with `define-derived-mode'.
index 4bda4bc0cd3ddadeb052e43f463b2525cf9c405c..e6c59ee448ce2c939eb5d81bd428c79e98e454b3 100644 (file)
@@ -1787,7 +1787,7 @@ printf(
     $stat[2],
     $stat[1] >> 16 & 0xffff,
     $stat[1] & 0xffff
-);' \"$1\" \"$2\" \"$3\" 2>/dev/null"
+);' \"$1\" \"$2\" 2>/dev/null"
   "Perl script to produce output suitable for use with `file-attributes'
 on the remote file system.
 Escape sequence %s is replaced with name of Perl binary.
@@ -1840,7 +1840,7 @@ for($i = 0; $i < $n; $i++)
         $stat[0] >> 16 & 0xffff,
         $stat[0] & 0xffff);
 }
-printf(\")\\n\");' \"$1\" \"$2\" \"$3\" 2>/dev/null"
+printf(\")\\n\");' \"$1\" \"$2\" 2>/dev/null"
   "Perl script implementing `directory-files-attributes' as Lisp `read'able
 output.
 Escape sequence %s is replaced with name of Perl binary.
@@ -7533,11 +7533,11 @@ connection if a previous connection has died for some reason."
 
                ;; Add arguments for asynchrononous processes.
                (when (and process-name async-args)
-                 (setq login-args (append login-args async-args)))
+                 (setq login-args (append async-args login-args)))
 
                ;; Add gateway arguments if necessary.
                (when (and gw gw-args)
-                 (setq login-args (append login-args gw-args)))
+                 (setq login-args (append gw-args login-args)))
 
                ;; Check for port number.  Until now, there's no need
                ;; for handling like method, user, host.
@@ -8858,7 +8858,6 @@ Only works for Bourne-like shells."
 ;;   by the files in that directory.  Add this here.
 ;; * Avoid screen blanking when hitting `g' in dired.  (Eli Tziperman)
 ;; * Make ffap.el grok Tramp filenames.  (Eli Tziperman)
-;; * Case-insensitive filename completion.  (Norbert Goevert.)
 ;; * Don't use globbing for directories with many files, as this is
 ;;   likely to produce long command lines, and some shells choke on
 ;;   long command lines.