Allow "%" in Tramp host names

* lisp/net/tramp-gvfs.el (tramp-gvfs-url-file-name): Hexify also host.

* lisp/net/tramp.el (tramp-host-regexp): Allow "%" in host names.

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 51d24cbc1b03e4a9a929210a2b5620713c877b33..709ea4670a89241a4263a557dfe38b590eb979b3 100644 (file)
--- a/lisp/net/tramp-gvfs.el
+++ b/lisp/net/tramp-gvfs.el
@@ -1292,7 +1292,8 @@ file-notify events."
            (when (and user domain)
              (setq user (concat domain ";" user)))
            (url-parse-make-urlobj
-            method (and user (url-hexify-string user)) nil host
+            method (and user (url-hexify-string user))
+            nil (and host (url-hexify-string host))
             (if (stringp port) (string-to-number port) port)
             (and localname (url-hexify-string localname)) nil nil t))
        (url-parse-make-urlobj

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index e300b3a58ed1c5ce56854d25aca999d0ae2b0164..67192e32401f6c9068f58804d07354a4727a20b7 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -818,7 +818,7 @@ Used in `tramp-make-tramp-file-name'.")
   "Regexp matching delimiter between user and host names.
 Derived from `tramp-postfix-user-format'.")
 
-(defconst tramp-host-regexp "[a-zA-Z0-9_.-]+"
+(defconst tramp-host-regexp "[a-zA-Z0-9_.%-]+"
   "Regexp matching host names.")
 
 (defconst tramp-prefix-ipv6-format-alist
@@ -4631,9 +4631,6 @@ Only works for Bourne-like shells."
 (provide 'tramp)
 
 ;;; TODO:
-
-;; * In Emacs 21, `insert-directory' shows total number of bytes used
-;;   by the files in that directory.  Add this here.
 ;;
 ;; * Avoid screen blanking when hitting `g' in dired.  (Eli Tziperman)
 ;;