aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorPo Lu2022-03-24 09:42:47 +0800
committerPo Lu2022-03-24 09:42:47 +0800
commit17393c0db0fbd4ba9b7ddcdc668974ef8a65107d (patch)
treee7ba375a3a7f75a1868f78c8c9ab328bfd3f278e /lisp
parentac3bb7e75413c1df60cf2de5c29e999df518a62d (diff)
downloademacs-17393c0db0fbd4ba9b7ddcdc668974ef8a65107d.tar.gz
emacs-17393c0db0fbd4ba9b7ddcdc668974ef8a65107d.zip
Allow dragging and dropping multiple actions
* doc/lispref/frames.texi (Drag and Drop): Document new meaning of `action'. * lisp/term/haiku-win.el (x-begin-drag): Correct for new meaning of `action'. * src/xfns.c (Fx_begin_drag): Handle new alist meaning of `action'. * src/xterm.c (x_dnd_begin_drag_and_drop): New parameters `ask_action_list', `ask_action_names' and `n_ask_actions'. * src/xterm.h: Update prototypes.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/term/haiku-win.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/term/haiku-win.el b/lisp/term/haiku-win.el
index 8ec959a7584..1433620875b 100644
--- a/lisp/term/haiku-win.el
+++ b/lisp/term/haiku-win.el
@@ -224,7 +224,9 @@ take effect on menu items until the menu bar is updated again."
224 (push (cadr selection-result) 224 (push (cadr selection-result)
225 (cdr (alist-get (car selection-result) message 225 (cdr (alist-get (car selection-result) message
226 nil nil #'equal)))))))) 226 nil nil #'equal))))))))
227 (prog1 (or action 'XdndActionCopy) 227 (prog1 (or (and (symbolp action)
228 action)
229 'XdndActionCopy)
228 (haiku-drag-message (or frame (selected-frame)) 230 (haiku-drag-message (or frame (selected-frame))
229 message)))) 231 message))))
230 232