diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2006-12-31 15:03:51 +0000 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2006-12-31 15:03:51 +0000 |
| commit | 496f830892de1e0700b9b334d0748cdaa1e8a129 (patch) | |
| tree | 5e056266de54a2b3cd8eb6b8b7333a9dd94052bd /lisp | |
| parent | f57cdb50a7d11aec40238bfe8687eaaf403e1b17 (diff) | |
| download | emacs-496f830892de1e0700b9b334d0748cdaa1e8a129.tar.gz | |
* net/tramp.el (tramp-default-method): Don't call `symbol-function'.
Apply `funcall' directly on 'executable-find.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 10 |
2 files changed, 9 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1c1070b040b..5658c878479 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-12-31 Romain Francoise <romain@orebokech.com> + + * net/tramp.el (tramp-default-method): Don't call `symbol-function'. + Apply `funcall' directly on 'executable-find. + 2006-12-31 Kim F. Storm <storm@cua.dk> * files.el (auto-mode-case-fold): New defcustom. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 1835599a1c6..822a995230e 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -693,20 +693,18 @@ various functions for details." ;; another good choice because of the "ControlMaster" option, but ;; this is a more modern alternative in OpenSSH 4, which cannot be ;; taken as default. - (let ((e-f (and (fboundp 'executable-find) - (symbol-function 'executable-find)))) + (let ((e-f (fboundp 'executable-find))) (cond ;; PuTTY is installed. - ((and e-f (funcall e-f "pscp")) + ((and e-f (funcall 'executable-find "pscp")) (if (or (fboundp 'password-read) ;; Pageant is running. (and (fboundp 'w32-window-exists-p) - (funcall (symbol-function 'w32-window-exists-p) - "Pageant" "Pageant"))) + (funcall 'w32-window-exists-p "Pageant" "Pageant"))) "pscp" "plink")) ;; There is an ssh installation. - ((and e-f (funcall e-f "scp")) + ((and e-f (funcall 'executable-find "scp")) (if (or (fboundp 'password-read) ;; ssh-agent is running. (getenv "SSH_AUTH_SOCK") |