mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-11 14:01:43 -08:00
Code Issues Projects Releases Wiki Activity

Add missing part of recent changes to NS DND support

Browse source 
* lisp/term/ns-win.el (x-begin-drag): Implement `return-frame'
argument.
This commit is contained in:
Po Lu 2022-05-31 21:14:16 +08:00
parent 90957dfb7a
commit e10d10a3e3
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -895,7 +895,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
&context (window-system ns))
(ns-get-selection selection-symbol target-type))
(defun x-begin-drag (targets &optional action frame _return-frame _allow-current-frame)
(defun x-begin-drag (targets &optional action frame return-frame _allow-current-frame)
"SKIP: real doc in xfns.c."
(unless ns-dnd-selection-value
(error "No local value for XdndSelection"))
@ -910,7 +910,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.")
(expand-file-name
ns-dnd-selection-value))))
pasteboard))
(ns-begin-drag frame pasteboard action)))
(ns-begin-drag frame pasteboard action return-frame)))
(defun ns-handle-drag-motion (frame x y)
"Handle mouse movement on FRAME at X and Y during drag-and-drop.