* net/tramp.el (tramp-tramp-file-p): Comment check for

`string-as-unibyte'.  The function does not exist on XEmacs, and
likely we need another approach.

* net/tramp-sh.el (tramp-compute-multi-hops): Check, whether
`tramp-gw-*' variables are bound.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c1142a45e8da29fd5989f4166f11aae92691969b..c2be5f5fae46d0260d055981b0739fe199e3c849 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2013-01-31  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp.el (tramp-tramp-file-p): Comment check for
+       `string-as-unibyte'.  The function does not exist on XEmacs, and
+       likely we need another approach.
+
+       * net/tramp-sh.el (tramp-compute-multi-hops): Check, whether
+       `tramp-gw-*' variables are bound.
+
 2013-01-31  Glenn Morris  <rgm@gnu.org>
 
        * files.el (basic-save-buffer-2): Choose coding system for

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index a06d64d400a49b5f9142f12452a41c8d76acf468..345da7b958fb79c80ca6c23dd1764029e8a775ab 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -4272,7 +4272,7 @@ Gateway hops are already opened."
            (setq choices tramp-default-proxies-alist)))))
 
     ;; Handle gateways.
-    (when (and tramp-gw-tunnel-method tramp-gw-socks-method
+    (when (and (boundp 'tramp-gw-tunnel-method) (boundp 'tramp-gw-socks-method)
               (string-match
                (format
                 "^\\(%s\\|%s\\)$" tramp-gw-tunnel-method tramp-gw-socks-method)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index ea3b5d56a383971762f5e70be1502673b2f23a90..4f31e95aeff453995a8e6a3c8e29da2ae693387f 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -1158,7 +1158,7 @@ If the `tramp-methods' entry does not exist, return nil."
 It checks also, whether NAME is unibyte encoded."
   (save-match-data
     (and (stringp name)
-        (string-equal name (string-as-unibyte name))
+;       (string-equal name (string-as-unibyte name))
         (string-match tramp-file-name-regexp name))))
 
 (defun tramp-find-method (method user host)