martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages 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.