procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow "%" in Tramp host names

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

* lisp/net/tramp.el (tramp-host-regexp): Allow "%" in host names.
This commit is contained in:
Michael Albinus 2017-11-05 12:40:58 +01:00
parent 8c50842790
commit 8db2b3a79b
2 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/net/tramp-gvfs.el
View file

@ -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

5
lisp/net/tramp.el
View file

@ -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)
;;