diff options
| author | Po Lu | 2022-03-24 09:42:47 +0800 |
|---|---|---|
| committer | Po Lu | 2022-03-24 09:42:47 +0800 |
| commit | 17393c0db0fbd4ba9b7ddcdc668974ef8a65107d (patch) | |
| tree | e7ba375a3a7f75a1868f78c8c9ab328bfd3f278e /lisp | |
| parent | ac3bb7e75413c1df60cf2de5c29e999df518a62d (diff) | |
| download | emacs-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.el | 4 |
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 | ||