diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2023-10-13 16:09:51 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2023-10-13 16:09:51 +0200 |
| commit | c8ea14e7825d536f41a230fc1298341a2462635e (patch) | |
| tree | 4f7766ee80cd4174a9a8d251f205a7394321b12d /lisp/net/tramp-smb.el | |
| parent | 30239759ee45b5077caf95ce5aa47b3af885afbe (diff) | |
| download | emacs-c8ea14e7825d536f41a230fc1298341a2462635e.tar.gz emacs-c8ea14e7825d536f41a230fc1298341a2462635e.tar.bz2 emacs-c8ea14e7825d536f41a230fc1298341a2462635e.zip | |
Handle quoted tilde in Tramp
* lisp/net/tramp.el (tramp-handle-expand-file-name):
* lisp/net/tramp-gvfs.el (tramp-gvfs-handle-expand-file-name):
* lisp/net/tramp-sh.el (tramp-sh-handle-expand-file-name):
* lisp/net/tramp-smb.el (tramp-smb-handle-expand-file-name):
* lisp/net/tramp-sudoedit.el (tramp-sudoedit-handle-expand-file-name):
Handle quoted tilde. (Bug#65685)
* test/lisp/net/tramp-tests.el (tramp-test05-expand-file-name-tilde):
New test.
Diffstat (limited to 'lisp/net/tramp-smb.el')
| -rw-r--r-- | lisp/net/tramp-smb.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 7249fa266ac..0ba24352a3d 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el @@ -731,6 +731,9 @@ PRESERVE-UID-GID and PRESERVE-EXTENDED-ATTRIBUTES are completely ignored." (tramp-run-real-handler #'expand-file-name (list name)) ;; Dissect NAME. (with-parsed-tramp-file-name name nil + ;; Tilde expansion shall be possible also for quoted localname. + (when (string-prefix-p "~" (file-name-unquote localname)) + (setq localname (file-name-unquote localname))) ;; Tilde expansion if necessary. (when (string-match (tramp-compat-rx bos "~" (group (* (not "/"))) (group (* nonl)) eos) |