From: Michael Albinus <michael.albinus@gmx.de>
Date: Sun, 5 Nov 2017 11:40:58 +0000 (+0100)
Subject: Allow "%" in Tramp host names
X-Git-Tag: emacs-26.0.91~378
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8db2b3a79bef0dab286badc3f0af164387a24a67;p=emacs.git

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 51d24cbc1b0..709ea4670a8 100644
--- 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 e300b3a58ed..67192e32401 100644
--- 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)
 ;;