aboutsummaryrefslogtreecommitdiffstats
path: root/src/xselect.c
diff options
context:
space:
mode:
authorDan Nicolaescu2010-07-08 14:25:08 -0700
committerDan Nicolaescu2010-07-08 14:25:08 -0700
commit5842a27bbfb7efa6872824e501bc7ec98b631553 (patch)
treed173899af9cbed9d90d94cfc710e6ecc06dd1f6b /src/xselect.c
parent71c44c04bb996abe77db8efd88255fde06532b10 (diff)
downloademacs-5842a27bbfb7efa6872824e501bc7ec98b631553.tar.gz
emacs-5842a27bbfb7efa6872824e501bc7ec98b631553.zip
Convert DEFUNs to standard C.
* src/alloc.c: Convert DEFUNs to standard C. * src/buffer.c: * src/bytecode.c: * src/callint.c: * src/callproc.c: * src/casefiddle.c: * src/casetab.c: * src/category.c: * src/character.c: * src/charset.c: * src/chartab.c: * src/cmds.c: * src/coding.c: * src/composite.c: * src/data.c: * src/dbusbind.c: * src/dired.c: * src/dispnew.c: * src/doc.c: * src/dosfns.c: * src/editfns.c: * src/emacs.c: * src/eval.c: * src/fileio.c: * src/filelock.c: * src/floatfns.c: * src/fns.c: * src/font.c: * src/fontset.c: * src/frame.c: * src/fringe.c: * src/image.c: * src/indent.c: * src/insdel.c: * src/keyboard.c: * src/keymap.c: * src/lread.c: * src/macros.c: * src/marker.c: * src/menu.c: * src/minibuf.c: * src/msdos.c: * src/nsfns.m: * src/nsmenu.m: * src/nsselect.m: * src/print.c: * src/process.c: * src/search.c: * src/sound.c: * src/syntax.c: * src/term.c: * src/terminal.c: * src/textprop.c: * src/undo.c: * src/w16select.c: * src/w32console.c: * src/w32fns.c: * src/w32font.c: * src/w32menu.c: * src/w32proc.c: * src/w32select.c: * src/window.c: * src/xdisp.c: * src/xfaces.c: * src/xfns.c: * src/xmenu.c: * src/xselect.c: * src/xsettings.c: * src/xsmfns.c: Likewise.
Diffstat (limited to 'src/xselect.c')
-rw-r--r--src/xselect.c34
1 files changed, 11 insertions, 23 deletions
diff --git a/src/xselect.c b/src/xselect.c
index df260e3d8f1..45690a05460 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -2094,8 +2094,7 @@ TYPE is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
2094\(Those are literal upper-case symbol names, since that's what X expects.) 2094\(Those are literal upper-case symbol names, since that's what X expects.)
2095VALUE is typically a string, or a cons of two markers, but may be 2095VALUE is typically a string, or a cons of two markers, but may be
2096anything that the functions on `selection-converter-alist' know about. */) 2096anything that the functions on `selection-converter-alist' know about. */)
2097 (selection_name, selection_value) 2097 (Lisp_Object selection_name, Lisp_Object selection_value)
2098 Lisp_Object selection_name, selection_value;
2099{ 2098{
2100 check_x (); 2099 check_x ();
2101 CHECK_SYMBOL (selection_name); 2100 CHECK_SYMBOL (selection_name);
@@ -2117,8 +2116,7 @@ SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
2117TYPE is the type of data desired, typically `STRING'. 2116TYPE is the type of data desired, typically `STRING'.
2118TIME_STAMP is the time to use in the XConvertSelection call for foreign 2117TIME_STAMP is the time to use in the XConvertSelection call for foreign
2119selections. If omitted, defaults to the time for the last event. */) 2118selections. If omitted, defaults to the time for the last event. */)
2120 (selection_symbol, target_type, time_stamp) 2119 (Lisp_Object selection_symbol, Lisp_Object target_type, Lisp_Object time_stamp)
2121 Lisp_Object selection_symbol, target_type, time_stamp;
2122{ 2120{
2123 Lisp_Object val = Qnil; 2121 Lisp_Object val = Qnil;
2124 struct gcpro gcpro1, gcpro2; 2122 struct gcpro gcpro1, gcpro2;
@@ -2163,9 +2161,7 @@ DEFUN ("x-disown-selection-internal", Fx_disown_selection_internal,
2163 Sx_disown_selection_internal, 1, 2, 0, 2161 Sx_disown_selection_internal, 1, 2, 0,
2164 doc: /* If we own the selection SELECTION, disown it. 2162 doc: /* If we own the selection SELECTION, disown it.
2165Disowning it means there is no such selection. */) 2163Disowning it means there is no such selection. */)
2166 (selection, time) 2164 (Lisp_Object selection, Lisp_Object time)
2167 Lisp_Object selection;
2168 Lisp_Object time;
2169{ 2165{
2170 Time timestamp; 2166 Time timestamp;
2171 Atom selection_atom; 2167 Atom selection_atom;
@@ -2239,8 +2235,7 @@ the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
2239\(Those are literal upper-case symbol names, since that's what X expects.) 2235\(Those are literal upper-case symbol names, since that's what X expects.)
2240For convenience, the symbol nil is the same as `PRIMARY', 2236For convenience, the symbol nil is the same as `PRIMARY',
2241and t is the same as `SECONDARY'. */) 2237and t is the same as `SECONDARY'. */)
2242 (selection) 2238 (Lisp_Object selection)
2243 Lisp_Object selection;
2244{ 2239{
2245 check_x (); 2240 check_x ();
2246 CHECK_SYMBOL (selection); 2241 CHECK_SYMBOL (selection);
@@ -2260,8 +2255,7 @@ the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'.
2260\(Those are literal upper-case symbol names, since that's what X expects.) 2255\(Those are literal upper-case symbol names, since that's what X expects.)
2261For convenience, the symbol nil is the same as `PRIMARY', 2256For convenience, the symbol nil is the same as `PRIMARY',
2262and t is the same as `SECONDARY'. */) 2257and t is the same as `SECONDARY'. */)
2263 (selection) 2258 (Lisp_Object selection)
2264 Lisp_Object selection;
2265{ 2259{
2266 Window owner; 2260 Window owner;
2267 Atom atom; 2261 Atom atom;
@@ -2323,8 +2317,7 @@ initialize_cut_buffers (Display *display, Window window)
2323DEFUN ("x-get-cut-buffer-internal", Fx_get_cut_buffer_internal, 2317DEFUN ("x-get-cut-buffer-internal", Fx_get_cut_buffer_internal,
2324 Sx_get_cut_buffer_internal, 1, 1, 0, 2318 Sx_get_cut_buffer_internal, 1, 1, 0,
2325 doc: /* Returns the value of the named cut buffer (typically CUT_BUFFER0). */) 2319 doc: /* Returns the value of the named cut buffer (typically CUT_BUFFER0). */)
2326 (buffer) 2320 (Lisp_Object buffer)
2327 Lisp_Object buffer;
2328{ 2321{
2329 Window window; 2322 Window window;
2330 Atom buffer_atom; 2323 Atom buffer_atom;
@@ -2374,8 +2367,7 @@ DEFUN ("x-get-cut-buffer-internal", Fx_get_cut_buffer_internal,
2374DEFUN ("x-store-cut-buffer-internal", Fx_store_cut_buffer_internal, 2367DEFUN ("x-store-cut-buffer-internal", Fx_store_cut_buffer_internal,
2375 Sx_store_cut_buffer_internal, 2, 2, 0, 2368 Sx_store_cut_buffer_internal, 2, 2, 0,
2376 doc: /* Sets the value of the named cut buffer (typically CUT_BUFFER0). */) 2369 doc: /* Sets the value of the named cut buffer (typically CUT_BUFFER0). */)
2377 (buffer, string) 2370 (Lisp_Object buffer, Lisp_Object string)
2378 Lisp_Object buffer, string;
2379{ 2371{
2380 Window window; 2372 Window window;
2381 Atom buffer_atom; 2373 Atom buffer_atom;
@@ -2440,8 +2432,7 @@ DEFUN ("x-rotate-cut-buffers-internal", Fx_rotate_cut_buffers_internal,
2440 Sx_rotate_cut_buffers_internal, 1, 1, 0, 2432 Sx_rotate_cut_buffers_internal, 1, 1, 0,
2441 doc: /* Rotate the values of the cut buffers by N steps. 2433 doc: /* Rotate the values of the cut buffers by N steps.
2442Positive N means shift the values forward, negative means backward. */) 2434Positive N means shift the values forward, negative means backward. */)
2443 (n) 2435 (Lisp_Object n)
2444 Lisp_Object n;
2445{ 2436{
2446 Window window; 2437 Window window;
2447 Atom props[8]; 2438 Atom props[8];
@@ -2624,8 +2615,7 @@ the cdr is the lower 16 bits of a 32 bit value.
2624Use the display for FRAME or the current frame if FRAME is not given or nil. 2615Use the display for FRAME or the current frame if FRAME is not given or nil.
2625 2616
2626If the value is 0 or the atom is not known, return the empty string. */) 2617If the value is 0 or the atom is not known, return the empty string. */)
2627 (value, frame) 2618 (Lisp_Object value, Lisp_Object frame)
2628 Lisp_Object value, frame;
2629{ 2619{
2630 struct frame *f = check_x_frame (frame); 2620 struct frame *f = check_x_frame (frame);
2631 char *name = 0; 2621 char *name = 0;
@@ -2665,8 +2655,7 @@ DEFUN ("x-register-dnd-atom", Fx_register_dnd_atom,
2665 doc: /* Request that dnd events are made for ClientMessages with ATOM. 2655 doc: /* Request that dnd events are made for ClientMessages with ATOM.
2666ATOM can be a symbol or a string. The ATOM is interned on the display that 2656ATOM can be a symbol or a string. The ATOM is interned on the display that
2667FRAME is on. If FRAME is nil, the selected frame is used. */) 2657FRAME is on. If FRAME is nil, the selected frame is used. */)
2668 (atom, frame) 2658 (Lisp_Object atom, Lisp_Object frame)
2669 Lisp_Object atom, frame;
2670{ 2659{
2671 Atom x_atom; 2660 Atom x_atom;
2672 struct frame *f = check_x_frame (frame); 2661 struct frame *f = check_x_frame (frame);
@@ -2783,8 +2772,7 @@ the Atom is sent. If a value is a cons, it is converted to a 32 bit number
2783with the high 16 bits from the car and the lower 16 bit from the cdr. 2772with the high 16 bits from the car and the lower 16 bit from the cdr.
2784If more values than fits into the event is given, the excessive values 2773If more values than fits into the event is given, the excessive values
2785are ignored. */) 2774are ignored. */)
2786 (display, dest, from, message_type, format, values) 2775 (Lisp_Object display, Lisp_Object dest, Lisp_Object from, Lisp_Object message_type, Lisp_Object format, Lisp_Object values)
2787 Lisp_Object display, dest, from, message_type, format, values;
2788{ 2776{
2789 struct x_display_info *dpyinfo = check_x_display_info (display); 2777 struct x_display_info *dpyinfo = check_x_display_info (display);
2790 Window wdest; 2778 Window wdest;