diff options
| author | Dan Nicolaescu | 2010-07-08 14:25:08 -0700 |
|---|---|---|
| committer | Dan Nicolaescu | 2010-07-08 14:25:08 -0700 |
| commit | 5842a27bbfb7efa6872824e501bc7ec98b631553 (patch) | |
| tree | d173899af9cbed9d90d94cfc710e6ecc06dd1f6b /src/xselect.c | |
| parent | 71c44c04bb996abe77db8efd88255fde06532b10 (diff) | |
| download | emacs-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.c | 34 |
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.) |
| 2095 | VALUE is typically a string, or a cons of two markers, but may be | 2095 | VALUE is typically a string, or a cons of two markers, but may be |
| 2096 | anything that the functions on `selection-converter-alist' know about. */) | 2096 | anything 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'. | |||
| 2117 | TYPE is the type of data desired, typically `STRING'. | 2116 | TYPE is the type of data desired, typically `STRING'. |
| 2118 | TIME_STAMP is the time to use in the XConvertSelection call for foreign | 2117 | TIME_STAMP is the time to use in the XConvertSelection call for foreign |
| 2119 | selections. If omitted, defaults to the time for the last event. */) | 2118 | selections. 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. |
| 2165 | Disowning it means there is no such selection. */) | 2163 | Disowning 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.) |
| 2240 | For convenience, the symbol nil is the same as `PRIMARY', | 2236 | For convenience, the symbol nil is the same as `PRIMARY', |
| 2241 | and t is the same as `SECONDARY'. */) | 2237 | and 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.) |
| 2261 | For convenience, the symbol nil is the same as `PRIMARY', | 2256 | For convenience, the symbol nil is the same as `PRIMARY', |
| 2262 | and t is the same as `SECONDARY'. */) | 2257 | and 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) | |||
| 2323 | DEFUN ("x-get-cut-buffer-internal", Fx_get_cut_buffer_internal, | 2317 | DEFUN ("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, | |||
| 2374 | DEFUN ("x-store-cut-buffer-internal", Fx_store_cut_buffer_internal, | 2367 | DEFUN ("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. |
| 2442 | Positive N means shift the values forward, negative means backward. */) | 2434 | Positive 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. | |||
| 2624 | Use the display for FRAME or the current frame if FRAME is not given or nil. | 2615 | Use the display for FRAME or the current frame if FRAME is not given or nil. |
| 2625 | 2616 | ||
| 2626 | If the value is 0 or the atom is not known, return the empty string. */) | 2617 | If 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. |
| 2666 | ATOM can be a symbol or a string. The ATOM is interned on the display that | 2656 | ATOM can be a symbol or a string. The ATOM is interned on the display that |
| 2667 | FRAME is on. If FRAME is nil, the selected frame is used. */) | 2657 | FRAME 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 | |||
| 2783 | with the high 16 bits from the car and the lower 16 bit from the cdr. | 2772 | with the high 16 bits from the car and the lower 16 bit from the cdr. |
| 2784 | If more values than fits into the event is given, the excessive values | 2773 | If more values than fits into the event is given, the excessive values |
| 2785 | are ignored. */) | 2774 | are 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; |