procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Properly respond to drops observing the Motif protocol

Browse source 
* lisp/pgtk-dnd.el (pgtk-dnd-handle-file-name):

* lisp/x-dnd.el (x-dnd-handle-file-name): Correct order of
arguments to d-h-m-u.
This commit is contained in:
Po Lu 2023-10-26 19:49:40 +08:00
parent 6ad14b658f
commit 7c668eb75b
2 changed files with 23 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/pgtk-dnd.el
View file

@ -253,16 +253,17 @@ STRING is the file names as a string, separated by nulls."
retval)
(let ((did-action
(dnd-handle-multiple-urls
window action (mapcar
(lambda (item)
(when coding
(setq item (encode-coding-string item
coding)))
(concat "file://"
(mapconcat 'url-hexify-string
(split-string item "/")
"/")))
uri-list))))
window (mapcar
(lambda (item)
(when coding
(setq item (encode-coding-string item
coding)))
(concat "file://"
(mapconcat 'url-hexify-string
(split-string item "/")
"/")))
uri-list)
action)))
(when did-action (setq retval did-action)))
retval))

22
lisp/x-dnd.el
View file

@ -384,16 +384,18 @@ STRING is the file names as a string, separated by nulls."
retval)
(let ((did-action
(dnd-handle-multiple-urls
window action (mapcar
(lambda (item)
(when coding
(setq item (encode-coding-string item
coding)))
(concat "file://"
(mapconcat 'url-hexify-string
(split-string item "/")
"/")))
uri-list))))
window
(mapcar
(lambda (item)
(when coding
(setq item (encode-coding-string item
coding)))
(concat "file://"
(mapconcat 'url-hexify-string
(split-string item "/")
"/")))
uri-list)
action)))
(when did-action (setq retval did-action)))
retval))