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 efd774f4e94eb3420bbb16c03ba69fcd04b23d5f..d78f926ee7adbc43eea5010ece857bedad3fa76f 100644 (file)
--- 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)))