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/nsselect.m | |
| 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/nsselect.m')
| -rw-r--r-- | src/nsselect.m | 24 |
1 files changed, 8 insertions, 16 deletions
diff --git a/src/nsselect.m b/src/nsselect.m index b034eacf77c..23dede9c38e 100644 --- a/src/nsselect.m +++ b/src/nsselect.m | |||
| @@ -378,8 +378,7 @@ DEFUN ("x-own-selection-internal", Fx_own_selection_internal, | |||
| 378 | SELECTION-NAME is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. | 378 | SELECTION-NAME is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. |
| 379 | VALUE is typically a string, or a cons of two markers, but may be | 379 | VALUE is typically a string, or a cons of two markers, but may be |
| 380 | anything that the functions on `selection-converter-alist' know about. */) | 380 | anything that the functions on `selection-converter-alist' know about. */) |
| 381 | (selection_name, selection_value) | 381 | (Lisp_Object selection_name, Lisp_Object selection_value) |
| 382 | Lisp_Object selection_name, selection_value; | ||
| 383 | { | 382 | { |
| 384 | id pb; | 383 | id pb; |
| 385 | Lisp_Object old_value, new_value; | 384 | Lisp_Object old_value, new_value; |
| @@ -413,8 +412,7 @@ anything that the functions on `selection-converter-alist' know about. */) | |||
| 413 | DEFUN ("x-disown-selection-internal", Fx_disown_selection_internal, | 412 | DEFUN ("x-disown-selection-internal", Fx_disown_selection_internal, |
| 414 | Sx_disown_selection_internal, 1, 2, 0, | 413 | Sx_disown_selection_internal, 1, 2, 0, |
| 415 | doc: /* If we own the selection SELECTION, disown it. */) | 414 | doc: /* If we own the selection SELECTION, disown it. */) |
| 416 | (selection_name, time) | 415 | (Lisp_Object selection_name, Lisp_Object time) |
| 417 | Lisp_Object selection_name, time; | ||
| 418 | { | 416 | { |
| 419 | id pb; | 417 | id pb; |
| 420 | check_ns (); | 418 | check_ns (); |
| @@ -434,8 +432,7 @@ the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. | |||
| 434 | \(Those are literal upper-case symbol names.) | 432 | \(Those are literal upper-case symbol names.) |
| 435 | For convenience, the symbol nil is the same as `PRIMARY', | 433 | For convenience, the symbol nil is the same as `PRIMARY', |
| 436 | and t is the same as `SECONDARY'.) */) | 434 | and t is the same as `SECONDARY'.) */) |
| 437 | (selection) | 435 | (Lisp_Object selection) |
| 438 | Lisp_Object selection; | ||
| 439 | { | 436 | { |
| 440 | id pb; | 437 | id pb; |
| 441 | NSArray *types; | 438 | NSArray *types; |
| @@ -458,8 +455,7 @@ the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. | |||
| 458 | \(Those are literal upper-case symbol names.) | 455 | \(Those are literal upper-case symbol names.) |
| 459 | For convenience, the symbol nil is the same as `PRIMARY', | 456 | For convenience, the symbol nil is the same as `PRIMARY', |
| 460 | and t is the same as `SECONDARY'.) */) | 457 | and t is the same as `SECONDARY'.) */) |
| 461 | (selection) | 458 | (Lisp_Object selection) |
| 462 | Lisp_Object selection; | ||
| 463 | { | 459 | { |
| 464 | check_ns (); | 460 | check_ns (); |
| 465 | CHECK_SYMBOL (selection); | 461 | CHECK_SYMBOL (selection); |
| @@ -475,8 +471,7 @@ DEFUN ("x-get-selection-internal", Fx_get_selection_internal, | |||
| 475 | SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. | 471 | SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. |
| 476 | \(Those are literal upper-case symbol names.) | 472 | \(Those are literal upper-case symbol names.) |
| 477 | TYPE is the type of data desired, typically `STRING'. */) | 473 | TYPE is the type of data desired, typically `STRING'. */) |
| 478 | (selection_name, target_type) | 474 | (Lisp_Object selection_name, Lisp_Object target_type) |
| 479 | Lisp_Object selection_name, target_type; | ||
| 480 | { | 475 | { |
| 481 | Lisp_Object val; | 476 | Lisp_Object val; |
| 482 | 477 | ||
| @@ -501,8 +496,7 @@ TYPE is the type of data desired, typically `STRING'. */) | |||
| 501 | DEFUN ("ns-get-cut-buffer-internal", Fns_get_cut_buffer_internal, | 496 | DEFUN ("ns-get-cut-buffer-internal", Fns_get_cut_buffer_internal, |
| 502 | Sns_get_cut_buffer_internal, 1, 1, 0, | 497 | Sns_get_cut_buffer_internal, 1, 1, 0, |
| 503 | doc: /* Returns the value of the named cut buffer. */) | 498 | doc: /* Returns the value of the named cut buffer. */) |
| 504 | (buffer) | 499 | (Lisp_Object buffer) |
| 505 | Lisp_Object buffer; | ||
| 506 | { | 500 | { |
| 507 | id pb; | 501 | id pb; |
| 508 | check_ns (); | 502 | check_ns (); |
| @@ -516,8 +510,7 @@ DEFUN ("ns-rotate-cut-buffers-internal", Fns_rotate_cut_buffers_internal, | |||
| 516 | doc: /* Rotate the values of the cut buffers by N steps. | 510 | doc: /* Rotate the values of the cut buffers by N steps. |
| 517 | Positive N means move values forward, negative means | 511 | Positive N means move values forward, negative means |
| 518 | backward. CURRENTLY NOT IMPLEMENTED UNDER NEXTSTEP. */ ) | 512 | backward. CURRENTLY NOT IMPLEMENTED UNDER NEXTSTEP. */ ) |
| 519 | (n) | 513 | (Lisp_Object n) |
| 520 | Lisp_Object n; | ||
| 521 | { | 514 | { |
| 522 | /* XXX This function is unimplemented under NeXTstep XXX */ | 515 | /* XXX This function is unimplemented under NeXTstep XXX */ |
| 523 | Fsignal (Qquit, Fcons (build_string ( | 516 | Fsignal (Qquit, Fcons (build_string ( |
| @@ -529,8 +522,7 @@ backward. CURRENTLY NOT IMPLEMENTED UNDER NEXTSTEP. */ ) | |||
| 529 | DEFUN ("ns-store-cut-buffer-internal", Fns_store_cut_buffer_internal, | 522 | DEFUN ("ns-store-cut-buffer-internal", Fns_store_cut_buffer_internal, |
| 530 | Sns_store_cut_buffer_internal, 2, 2, 0, | 523 | Sns_store_cut_buffer_internal, 2, 2, 0, |
| 531 | doc: /* Sets the value of the named cut buffer (typically CUT_BUFFER0). */) | 524 | doc: /* Sets the value of the named cut buffer (typically CUT_BUFFER0). */) |
| 532 | (buffer, string) | 525 | (Lisp_Object buffer, Lisp_Object string) |
| 533 | Lisp_Object buffer, string; | ||
| 534 | { | 526 | { |
| 535 | id pb; | 527 | id pb; |
| 536 | check_ns (); | 528 | check_ns (); |