[Emacs-diffs] emacs-26 8db2b3a 2/2: Allow "%" in Tramp host names

[Michael Albinus]

branch: emacs-26
commit 8db2b3a79bef0dab286badc3f0af164387a24a67
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    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.
---
 lisp/net/tramp-gvfs.el | 3 ++-
 lisp/net/tramp.el      | 5 +----
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/lisp/net/tramp-gvfs.el b/lisp/net/tramp-gvfs.el
index 51d24cb..709ea46 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 e300b3a..67192e3 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)
 ;;