diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-10-15 13:27:05 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-10-15 13:27:37 +0800 |
| commit | e185526d216e544a70b2be77b34b5cb5386762d1 (patch) | |
| tree | 8a976cbb718073d2bdc5ce3b7fad83d98f5611ec /lisp/x-dnd.el | |
| parent | 0bf3873b1c70e5b26bf04c96cf6db1d03dba7264 (diff) | |
| download | emacs-e185526d216e544a70b2be77b34b5cb5386762d1.tar.gz emacs-e185526d216e544a70b2be77b34b5cb5386762d1.tar.bz2 emacs-e185526d216e544a70b2be77b34b5cb5386762d1.zip | |
Fix XDS file name expansion
* lisp/x-dnd.el (x-dnd-handle-xds-drop): Expand file names
again. That code was mistakenly removed.
Diffstat (limited to 'lisp/x-dnd.el')
| -rw-r--r-- | lisp/x-dnd.el | 5 |
1 files changed, 3 insertions, 2 deletions
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) |