Tilde expansion is not possible for Tramp sshfs method

* lisp/net/tramp.el (tramp-handle-expand-file-name):
Tilde expansion is not possible.  (Bug#53847)

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 05a80e1dcf5563f92115a55a717f82da40984940..1b5de46016028c0dad8732a23e8dd5b9e6dfcca6 100644 (file)
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -3474,19 +3474,19 @@ User is always nil."
     (with-parsed-tramp-file-name name nil
       (unless (tramp-run-real-handler #'file-name-absolute-p (list localname))
        (setq localname (concat "/" localname)))
+      ;; Tilde expansion is not possible.
+      (when (string-match-p "\\`\\(~[^/]*\\)\\(.*\\)\\'" localname)
+       (tramp-error v 'file-error "Cannot expand tilde in file `%s'" name))
       ;; Do not keep "/..".
       (when (string-match-p "^/\\.\\.?$" localname)
        (setq localname "/"))
-      ;; Do normal `expand-file-name' (this does "/./" and "/../"),
-      ;; unless there are tilde characters in file name.
+      ;; Do normal `expand-file-name' (this does "/./" and "/../").
       ;; `default-directory' is bound, because on Windows there would
       ;; be problems with UNC shares or Cygwin mounts.
       (let ((default-directory tramp-compat-temporary-file-directory))
        (tramp-make-tramp-file-name
-        v (if (string-match-p "\\`~" localname)
-              localname
-            (tramp-drop-volume-letter
-             (tramp-run-real-handler #'expand-file-name (list localname)))))))))
+        v (tramp-drop-volume-letter
+           (tramp-run-real-handler #'expand-file-name (list localname))))))))
 
 (defun tramp-handle-file-accessible-directory-p (filename)
   "Like `file-accessible-directory-p' for Tramp files."