mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Fix XDS file name expansion

Browse Source 
* lisp/x-dnd.el (x-dnd-handle-xds-drop): Expand file names
again.  That code was mistakenly removed.
This commit is contained in:
Po Lu 2022-10-15 13:27:05 +08:00
parent 0bf3873b1c
commit e185526d21
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/x-dnd.el
View File

@ -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)