diff options
Diffstat (limited to 'lisp/net/tramp.el')
| -rw-r--r-- | lisp/net/tramp.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 100be3ac541..7987029dc44 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -1146,6 +1146,11 @@ entry does not exist, return nil." (string-to-number (match-string 2 host))) (tramp-get-method-parameter vec 'tramp-default-port))))) +;; The localname can be quoted with "/:". Extract this. +(defun tramp-file-name-unquote-localname (vec) + "Return unquoted localname component of VEC." + (tramp-compat-file-name-unquote (tramp-file-name-localname vec))) + ;;;###tramp-autoload (defun tramp-tramp-file-p (name) "Return t if NAME is a string with Tramp file name syntax." @@ -2910,7 +2915,9 @@ User is always nil." (with-tramp-connection-property v "case-insensitive" ;; The idea is to compare a file with lower case letters ;; with the same file with upper case letters. - (let ((candidate (directory-file-name filename)) + (let ((candidate + (tramp-compat-file-name-unquote + (directory-file-name filename))) tmpfile) ;; Check, whether we find an existing file with lower case ;; letters. This avoids us to create a temporary file. |