From: Po Lu <luangruo@yahoo.com>
Date: Sat, 15 Oct 2022 05:27:05 +0000 (+0800)
Subject: Fix XDS file name expansion
X-Git-Tag: emacs-29.0.90~1616^2~615
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e185526d216e544a70b2be77b34b5cb5386762d1;p=emacs.git

Fix XDS file name expansion

* lisp/x-dnd.el (x-dnd-handle-xds-drop): Expand file names
again.  That code was mistakenly removed.
---

diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index 2bda67fe3f3..ee80e41a22e 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -1640,8 +1640,9 @@ VERSION is the version of the XDND protocol understood by SOURCE."
                                 desired-name
                                 (or file-name-coding-system
                                     default-file-name-coding-system)))
-            (let ((name (funcall x-dnd-direct-save-function
-                                 t desired-name)))
+            (let ((name (expand-file-name
+                         (funcall x-dnd-direct-save-function
+                                  t desired-name))))
               (setq save-to name save-to-remote name))
             (when save-to
               (if (file-remote-p save-to)