[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100368: * net/tramp.el (tramp-default-method): Initialize with pscp/plink

[Michael Albinus]

------------------------------------------------------------
revno: 100368
committer: Michael Albinus <address@hidden>
branch nick: emacs-23
timestamp: Mon 2011-01-10 20:42:46 +0100
message:
  * net/tramp.el (tramp-default-method): Initialize with pscp/plink
  only when running under W32.
modified:
  lisp/ChangeLog
  lisp/net/tramp.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-01-09 17:52:57 +0000
+++ b/lisp/ChangeLog    2011-01-10 19:42:46 +0000
@@ -1,3 +1,8 @@
+2011-01-10  Michael Albinus  <address@hidden>
+
+       * net/tramp.el (tramp-default-method): Initialize with pscp/plink
+       only when running under W32.
+
 2011-01-09  Eli Zaretskii  <address@hidden>
 
        * progmodes/grep.el (grep-compute-defaults): Quote the program

=== modified file 'lisp/net/tramp.el'
--- a/lisp/net/tramp.el 2011-01-02 23:50:46 +0000
+++ b/lisp/net/tramp.el 2011-01-10 19:42:46 +0000
@@ -1,7 +1,7 @@
 ;;; tramp.el --- Transparent Remote Access, Multiple Protocol
 
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006, 2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+;;   2007, 2008, 2009, 2010, 2011 Free Software Foundation, Inc.
 
 ;; (copyright statements below in code to be updated with the above notice)
 
@@ -780,8 +780,11 @@
   ;; password caching.  "scpc" is chosen if we detect that the user is
   ;; running OpenSSH 4.0 or newer.
   (cond
-   ;; PuTTY is installed.
-   ((executable-find "pscp")
+   ;; PuTTY is installed.  We don't take it, if it is installed on a
+   ;; non-windows system, or pscp from the pssh (parallel ssh) package
+   ;; is found.
+   ((and (eq system-type 'windows-nt)
+        (executable-find "pscp"))
     (if        (or (fboundp 'password-read)
            (fboundp 'auth-source-user-or-password)
            ;; Pageant is running.
@@ -1904,8 +1907,8 @@
 (defconst tramp-perl-encode
   "%s -e '
 # This script contributed by Juanma Barranquero <address@hidden>.
-# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
-#   Free Software Foundation, Inc.
+# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
+#   2011 Free Software Foundation, Inc.
 use strict;
 
 my %%trans = do {
@@ -1946,8 +1949,8 @@
 (defconst tramp-perl-decode
   "%s -e '
 # This script contributed by Juanma Barranquero <address@hidden>.
-# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
-#   Free Software Foundation, Inc.
+# Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
+#   2011 Free Software Foundation, Inc.
 use strict;
 
 my %%trans = do {