* net/tramp.el (tramp-default-method): Don't call `symbol-function'.

Apply `funcall' directly on 'executable-find.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1c1070b040bb093eef9642bb89605bf4fbb918f4..5658c8784799fb0ada1d986f6ecc10a1c99e3101 100644 (file)
--- 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 1835599a1c6d56de96abe5f6cfd8e380bf9c9e09..822a995230e2540056e61f9e9a57890051d95110 100644 (file)
--- 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")