diff options
| author | Michael Albinus | 2025-03-22 17:49:53 +0100 |
|---|---|---|
| committer | Michael Albinus | 2025-03-22 17:49:53 +0100 |
| commit | 2658f4eab96aaad7f52245c2422bbfa51db9b207 (patch) | |
| tree | a9bda08eb9335ecbf28e4909f9bd7722549a4dcb | |
| parent | 9816c61c4876ac2acdc6d9efb73c4270846b5555 (diff) | |
| download | emacs-2658f4eab96aaad7f52245c2422bbfa51db9b207.tar.gz emacs-2658f4eab96aaad7f52245c2422bbfa51db9b207.zip | |
; Another Tramp fix
* lisp/net/tramp.el (tramp-skeleton-file-truename):
Remove possible trailing slash.
| -rw-r--r-- | lisp/net/tramp.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index d8b58bf13e9..91ba71510e1 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -3632,7 +3632,8 @@ BODY is the backend specific code." | |||
| 3632 | ;; it for security reasons. | 3632 | ;; it for security reasons. |
| 3633 | (when (tramp-tramp-file-p result) | 3633 | (when (tramp-tramp-file-p result) |
| 3634 | (setq result (file-name-quote result 'top))) | 3634 | (setq result (file-name-quote result 'top))) |
| 3635 | result))))))) | 3635 | ;; Remove possible trailing slash. |
| 3636 | (directory-file-name result)))))))) | ||
| 3636 | 3637 | ||
| 3637 | (defmacro tramp-skeleton-make-directory (dir &optional parents &rest body) | 3638 | (defmacro tramp-skeleton-make-directory (dir &optional parents &rest body) |
| 3638 | "Skeleton for `tramp-*-handle-make-directory'. | 3639 | "Skeleton for `tramp-*-handle-make-directory'. |