aboutsummaryrefslogtreecommitdiffstats
path: root/src/nsselect.m
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/nsselect.m
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/nsselect.m')
-rw-r--r--src/nsselect.m24
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,
378SELECTION-NAME is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. 378SELECTION-NAME is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
379VALUE is typically a string, or a cons of two markers, but may be 379VALUE is typically a string, or a cons of two markers, but may be
380anything that the functions on `selection-converter-alist' know about. */) 380anything 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. */)
413DEFUN ("x-disown-selection-internal", Fx_disown_selection_internal, 412DEFUN ("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.)
435For convenience, the symbol nil is the same as `PRIMARY', 433For convenience, the symbol nil is the same as `PRIMARY',
436and t is the same as `SECONDARY'.) */) 434and 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.)
459For convenience, the symbol nil is the same as `PRIMARY', 456For convenience, the symbol nil is the same as `PRIMARY',
460and t is the same as `SECONDARY'.) */) 457and 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,
475SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'. 471SELECTION is a symbol, typically `PRIMARY', `SECONDARY', or `CLIPBOARD'.
476\(Those are literal upper-case symbol names.) 472\(Those are literal upper-case symbol names.)
477TYPE is the type of data desired, typically `STRING'. */) 473TYPE 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'. */)
501DEFUN ("ns-get-cut-buffer-internal", Fns_get_cut_buffer_internal, 496DEFUN ("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.
517Positive N means move values forward, negative means 511Positive N means move values forward, negative means
518backward. CURRENTLY NOT IMPLEMENTED UNDER NEXTSTEP. */ ) 512backward. 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. */ )
529DEFUN ("ns-store-cut-buffer-internal", Fns_store_cut_buffer_internal, 522DEFUN ("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 ();