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

Make drag and drop on NS open all URLs (bug#43470)

Browse source 
* lisp/term/ns-win.el (ns-drag-n-drop): Merge generic and copy
actions.

Co-authored-by: Daniel Martín <mardani29@yahoo.es>
This commit is contained in:
Alan Third 2020-09-27 10:55:32 +01:00
parent ef7bc1cc80
commit c2a13969e4
1 changed files with 3 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/term/ns-win.el
View file

@ -513,15 +513,9 @@ string dropped into the current buffer."
(set-frame-selected-window nil window)
(raise-frame)
(setq window (selected-window))
(cond ((memq 'ns-drag-operation-generic operations)
;; Perform the default action for the type.
(if (eq type 'file)
(dolist (data objects)
(dnd-handle-one-url window 'private (concat "file:" data)))
(dnd-insert-text window 'private string)))
((memq 'ns-drag-operation-copy operations)
;; Try to open the file/URL. If type is nil, try to open
;; it as a URL anyway.
(cond ((or (memq 'ns-drag-operation-generic operations)
(memq 'ns-drag-operation-copy operations))
;; Perform the default/copy action.
(dolist (data objects)
(dnd-handle-one-url window 'private (if (eq type 'file)
(concat "file:" data)