Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Expand file names read from XDS functions

Browse source 
* lisp/x-dnd.el (x-dnd-handle-xds-drop): Expand file names
before use.  Some GUI dialogs read un-expanded file names.
This commit is contained in:
Po Lu 2022-07-01 16:32:37 +08:00
parent b55059bbeb
commit 06cd24698e
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

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