diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-07-01 16:32:37 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-07-01 16:32:37 +0800 |
| commit | 06cd24698e0b04b9d1f3292af4517f33c5f3767b (patch) | |
| tree | bf89fbf74c71991543cbcd0bbfac01a34ac8caa7 /lisp/x-dnd.el | |
| parent | b55059bbeb8577a371f54d1750a31786f5ab5b7f (diff) | |
| download | emacs-06cd24698e0b04b9d1f3292af4517f33c5f3767b.tar.gz | |
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.
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 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))) |