diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-05-27 16:33:12 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-05-27 16:33:12 +0800 |
| commit | 27de58af8b3a7617868408886f94bb12f7785800 (patch) | |
| tree | 84643a488ba979e4bb368edfcdf3e37a72d6f4ad /src/nsfns.m | |
| parent | 34e4eba07ed491d3c01902023df6f15c968117cf (diff) | |
| download | emacs-27de58af8b3a7617868408886f94bb12f7785800.tar.gz emacs-27de58af8b3a7617868408886f94bb12f7785800.tar.bz2 emacs-27de58af8b3a7617868408886f94bb12f7785800.zip | |
Implement some drag and drop functions on NS
* lisp/term/ns-win.el (ns-selection-exists-p):
(gui-backend-set-selection):
(x-begin-drag): New functions and selection types.
* src/nsfns.m (Fns_get_resource):
(Fns_set_resource):
(Fx_server_max_request_size): Fix coding style.
* src/nsselect.m (ns_decode_data_to_pasteboard):
(ns_lisp_to_pasteboard):
(ns_dnd_action_to_operation):
(ns_dnd_action_from_operation):
(Fns_begin_drag): New functions.
(syms_of_nsselect): New subrs.
* src/nsterm.h (EmacsWindow): New fields and messages.
(NSPasteboardNameGeneral): New define.
* src/nsterm.m ([EmacsView mouseDown:]): Store last mouse event.
([EmacsWindow initWithEmacsFrame:fullscreen:screen:]): Clear that event.
([EmacsWindow dealloc]): Free last mouse event.
Diffstat (limited to 'src/nsfns.m')
| -rw-r--r-- | src/nsfns.m | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/nsfns.m b/src/nsfns.m index 20c36209eb5..1593338dc95 100644 --- a/src/nsfns.m +++ b/src/nsfns.m @@ -1859,7 +1859,7 @@ ns_get_defaults_value (const char *key) DEFUN ("ns-get-resource", Fns_get_resource, Sns_get_resource, 2, 2, 0, doc: /* Return the value of the property NAME of OWNER from the defaults database. If OWNER is nil, Emacs is assumed. */) - (Lisp_Object owner, Lisp_Object name) + (Lisp_Object owner, Lisp_Object name) { const char *value; @@ -1880,7 +1880,7 @@ DEFUN ("ns-set-resource", Fns_set_resource, Sns_set_resource, 3, 3, 0, doc: /* Set property NAME of OWNER to VALUE, from the defaults database. If OWNER is nil, Emacs is assumed. If VALUE is nil, the default is removed. */) - (Lisp_Object owner, Lisp_Object name, Lisp_Object value) + (Lisp_Object owner, Lisp_Object name, Lisp_Object value) { check_window_system (NULL); if (NILP (owner)) @@ -1907,7 +1907,7 @@ DEFUN ("x-server-max-request-size", Fx_server_max_request_size, Sx_server_max_request_size, 0, 1, 0, doc: /* SKIP: real doc in xfns.c. */) - (Lisp_Object terminal) + (Lisp_Object terminal) { check_ns_display_info (terminal); /* This function has no real equivalent under Nextstep. Return nil to |