[Emacs-diffs] /srv/bzr/emacs/trunk r100852: * net/tramp.el (tramp-perl-file-attributes)

[Michael Albinus]

------------------------------------------------------------
revno: 100852
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Tue 2010-07-20 12:29:05 +0200
message:
  * 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'.
modified:
  lisp/ChangeLog
  lisp/net/tramp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-07-19 11:06:42 +0000
+++ b/lisp/ChangeLog    2010-07-20 10:29:05 +0000
@@ -1,3 +1,10 @@
+2010-07-20  Michael Albinus  <address@hidden>
+
+       * 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  <address@hidden>
 
        * time.el (display-time-world-mode): Define with `define-derived-mode'.

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2010-07-17 08:44:59 +0000
+++ b/lisp/net/tramp.el 2010-07-20 10:29:05 +0000
@@ -1787,7 +1787,7 @@
     $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 @@
         $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 @@
 
                ;; 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 @@
 ;;   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.