Mercurial > emacs
comparison src/w32select.c @ 109179:8cfee7d2955f
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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Thu, 08 Jul 2010 14:25:08 -0700 |
| parents | f8660b83cdbf |
| children | 228a5fa4eda0 |
comparison
equal
deleted
inserted
replaced
| 109178:53f8ebcd9a97 | 109179:8cfee7d2955f |
|---|---|
| 679 | 679 |
| 680 | 680 |
| 681 DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, | 681 DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data, |
| 682 Sw32_set_clipboard_data, 1, 2, 0, | 682 Sw32_set_clipboard_data, 1, 2, 0, |
| 683 doc: /* This sets the clipboard data to the given text. */) | 683 doc: /* This sets the clipboard data to the given text. */) |
| 684 (string, ignored) | 684 (Lisp_Object string, Lisp_Object ignored) |
| 685 Lisp_Object string, ignored; | |
| 686 { | 685 { |
| 687 BOOL ok = TRUE; | 686 BOOL ok = TRUE; |
| 688 int nbytes; | 687 int nbytes; |
| 689 unsigned char *src; | 688 unsigned char *src; |
| 690 unsigned char *dst; | 689 unsigned char *dst; |
| 800 | 799 |
| 801 | 800 |
| 802 DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, | 801 DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data, |
| 803 Sw32_get_clipboard_data, 0, 1, 0, | 802 Sw32_get_clipboard_data, 0, 1, 0, |
| 804 doc: /* This gets the clipboard data in text format. */) | 803 doc: /* This gets the clipboard data in text format. */) |
| 805 (ignored) | 804 (Lisp_Object ignored) |
| 806 Lisp_Object ignored; | |
| 807 { | 805 { |
| 808 HGLOBAL htext; | 806 HGLOBAL htext; |
| 809 Lisp_Object ret = Qnil; | 807 Lisp_Object ret = Qnil; |
| 810 UINT actual_clipboard_type; | 808 UINT actual_clipboard_type; |
| 811 int use_configured_coding_system = 1; | 809 int use_configured_coding_system = 1; |
| 1025 The arg should be the name of the selection in question, typically one of | 1023 The arg should be the name of the selection in question, typically one of |
| 1026 the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. | 1024 the symbols `PRIMARY', `SECONDARY', or `CLIPBOARD'. |
| 1027 \(Those are literal upper-case symbol names, since that's what X expects.) | 1025 \(Those are literal upper-case symbol names, since that's what X expects.) |
| 1028 For convenience, the symbol nil is the same as `PRIMARY', | 1026 For convenience, the symbol nil is the same as `PRIMARY', |
| 1029 and t is the same as `SECONDARY'. */) | 1027 and t is the same as `SECONDARY'. */) |
| 1030 (selection) | 1028 (Lisp_Object selection) |
| 1031 Lisp_Object selection; | |
| 1032 { | 1029 { |
| 1033 CHECK_SYMBOL (selection); | 1030 CHECK_SYMBOL (selection); |
| 1034 | 1031 |
| 1035 /* Return nil for PRIMARY and SECONDARY selections; for CLIPBOARD, check | 1032 /* Return nil for PRIMARY and SECONDARY selections; for CLIPBOARD, check |
| 1036 if the clipboard currently has valid text format contents. */ | 1033 if the clipboard currently has valid text format contents. */ |