From: Po Lu <luangruo@yahoo.com>
Date: Fri, 1 Jul 2022 08:32:37 +0000 (+0800)
Subject: Expand file names read from XDS functions
X-Git-Tag: emacs-29.0.90~1447^2~1307
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=06cd24698e0b04b9d1f3292af4517f33c5f3767b;p=emacs.git

Expand file names read from XDS functions

* lisp/x-dnd.el (x-dnd-handle-xds-drop): Expand file names
before use.  Some GUI dialogs read un-expanded file names.
---

diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index efd774f4e94..d78f926ee7a 100644
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -1369,8 +1369,9 @@ VERSION is the version of the XDND protocol understood by SOURCE."
                                 desired-name
                                 (or file-name-coding-system
                                     default-file-name-coding-system)))
-            (setq save-to (funcall x-dnd-direct-save-function
-                                   t desired-name))
+            (setq save-to (expand-file-name
+                           (funcall x-dnd-direct-save-function
+                                    t desired-name)))
             (when save-to
               (with-selected-window window
                 (let ((uri (format "file://%s%s" (system-name) save-to)))