aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2012-01-21 17:02:53 +0100
committerMichael Albinus2012-01-21 17:02:53 +0100
commitcc6d5805ba054948ee5151e93b4b1318e2a4f5b2 (patch)
tree9100af58f4f8873e9d392779e1fd8b2997124983
parent3c2907f7e83d2a324aca245b5cb1b8c84a1055e7 (diff)
downloademacs-cc6d5805ba054948ee5151e93b4b1318e2a4f5b2.tar.gz
emacs-cc6d5805ba054948ee5151e93b4b1318e2a4f5b2.zip
* net/tramp-sh.el (tramp-default-user-alist): Don't add "plink",
"plink1" and "psftp". (Bug#10530)
-rw-r--r--lisp/ChangeLog7
-rw-r--r--lisp/net/tramp-sh.el4
2 files changed, 8 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cbedfa287fa..63679e1580f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,9 @@
120122-01-21 Kenichi Handa <handa@m17n.org> 12012-01-21 Michael Albinus <michael.albinus@gmx.de>
2
3 * net/tramp-sh.el (tramp-default-user-alist): Don't add "plink",
4 "plink1" and "psftp". (Bug#10530)
5
62012-01-21 Kenichi Handa <handa@m17n.org>
2 7
3 * international/mule-cmds.el (prefer-coding-system): Show a 8 * international/mule-cmds.el (prefer-coding-system): Show a
4 warning message if the default value of file-name-coding-system 9 warning message if the default value of file-name-coding-system
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 2478253841f..e078a227061 100644
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -419,13 +419,13 @@ detected as prompt when being sent on echoing hosts, therefore.")
419 `(,(concat "\\`" (regexp-opt '("su" "sudo" "ksu")) "\\'") 419 `(,(concat "\\`" (regexp-opt '("su" "sudo" "ksu")) "\\'")
420 nil "root")) 420 nil "root"))
421;; Do not add "ssh" based methods, otherwise ~/.ssh/config would be ignored. 421;; Do not add "ssh" based methods, otherwise ~/.ssh/config would be ignored.
422;; Do not add "plink" and "psftp", they ask interactively for the user.
422;;;###tramp-autoload 423;;;###tramp-autoload
423(add-to-list 'tramp-default-user-alist 424(add-to-list 'tramp-default-user-alist
424 `(,(concat 425 `(,(concat
425 "\\`" 426 "\\`"
426 (regexp-opt 427 (regexp-opt
427 '("rcp" "remcp" "rsh" "telnet" "krlogin" 428 '("rcp" "remcp" "rsh" "telnet" "krlogin" "pscp" "fcp"))
428 "plink" "plink1" "pscp" "psftp" "fcp"))
429 "\\'") 429 "\\'")
430 nil ,(user-login-name))) 430 nil ,(user-login-name)))
431 431