Commit 41a48e45 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(syms_of_win32select): Fix docstring for `selection-coding-system'.

parent b45b1e81
2002-10-14 Juanma Barranquero <lektu@terra.es>
* w16select.c (syms_of_win16select): Fix docstring for
`selection-coding-system'.
* w32select.c (syms_of_w32select): Likewise.
2002-10-14 Stefan Monnier <monnier@cs.yale.edu>
* syntax.c (scan_lists): Don't get fooled by a symbol ending with
......
/* Selection processing for Emacs on the Microsoft W32 API.
Copyright (C) 1993, 1994 Free Software Foundation.
This file is part of GNU Emacs.
GNU Emacs is free software; you can redistribute it and/or modify
......@@ -57,16 +57,16 @@ DEFUN ("w32-open-clipboard", Fw32_open_clipboard, Sw32_open_clipboard, 0, 1, 0,
Lisp_Object frame;
{
BOOL ok = FALSE;
if (!NILP (frame))
CHECK_LIVE_FRAME (frame);
BLOCK_INPUT;
ok = OpenClipboard ((!NILP (frame) && FRAME_W32_P (XFRAME (frame))) ? FRAME_W32_WINDOW (XFRAME (frame)) : NULL);
UNBLOCK_INPUT;
return (ok ? frame : Qnil);
}
......@@ -77,13 +77,13 @@ Assigns ownership of the clipboard to the window which opened it. */)
()
{
BOOL ok = FALSE;
BLOCK_INPUT;
ok = EmptyClipboard ();
UNBLOCK_INPUT;
return (ok ? Qt : Qnil);
}
......@@ -93,13 +93,13 @@ DEFUN ("w32-close-clipboard", Fw32_close_clipboard,
()
{
BOOL ok = FALSE;
BLOCK_INPUT;
ok = CloseClipboard ();
UNBLOCK_INPUT;
return (ok ? Qt : Qnil);
}
......@@ -119,10 +119,10 @@ DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data,
unsigned char *dst;
CHECK_STRING (string);
if (!NILP (frame))
CHECK_LIVE_FRAME (frame);
BLOCK_INPUT;
nbytes = SBYTES (string) + 1;
......@@ -159,7 +159,7 @@ DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data,
if ((dst = (unsigned char *) GlobalLock (htext)) == NULL)
goto error;
/* convert to CRLF line endings expected by clipboard */
while (1)
{
......@@ -176,12 +176,12 @@ DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data,
next[-1] = '\r';
next[0] = '\n';
dst = next + 1;
}
}
else
/* copied remaining partial line -> now finished */
break;
}
GlobalUnlock (htext);
Vlast_coding_system_used = Qraw_text;
......@@ -237,18 +237,18 @@ DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data,
if (htext2 != NULL) htext = htext2;
}
}
if (!OpenClipboard ((!NILP (frame) && FRAME_W32_P (XFRAME (frame))) ? FRAME_W32_WINDOW (XFRAME (frame)) : NULL))
goto error;
ok = EmptyClipboard () && SetClipboardData (CF_TEXT, htext);
CloseClipboard ();
if (ok) goto done;
error:
ok = FALSE;
if (htext) GlobalFree (htext);
if (last_clipboard_text)
......@@ -256,7 +256,7 @@ DEFUN ("w32-set-clipboard-data", Fw32_set_clipboard_data,
done:
UNBLOCK_INPUT;
return (ok ? string : Qnil);
}
......@@ -268,15 +268,15 @@ DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data,
{
HANDLE htext;
Lisp_Object ret = Qnil;
if (!NILP (frame))
CHECK_LIVE_FRAME (frame);
BLOCK_INPUT;
if (!OpenClipboard ((!NILP (frame) && FRAME_W32_P (XFRAME (frame))) ? FRAME_W32_WINDOW (XFRAME (frame)) : NULL))
goto done;
if ((htext = GetClipboardData (CF_TEXT)) == NULL)
goto closeclip;
......@@ -286,10 +286,10 @@ DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data,
int nbytes;
int truelen;
int require_decoding = 0;
if ((src = (unsigned char *) GlobalLock (htext)) == NULL)
goto closeclip;
nbytes = strlen (src);
/* If the text in clipboard is identical to what we put there
......@@ -397,10 +397,10 @@ DEFUN ("w32-get-clipboard-data", Fw32_get_clipboard_data,
closeclip:
CloseClipboard ();
done:
UNBLOCK_INPUT;
return (ret);
}
......@@ -442,7 +442,7 @@ and t is the same as `SECONDARY'. */)
return Qnil;
}
void
void
syms_of_w32select ()
{
#if 0
......@@ -457,8 +457,9 @@ syms_of_w32select ()
DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
doc: /* Coding system for communicating with other programs.
When sending or receiving text via cut_buffer, selection, and clipboard,
the text is encoded or decoded by this coding system. */);
Vselection_coding_system=intern ("iso-latin-1-dos");
the text is encoded or decoded by this coding system.
The default value is `iso-latin-1-dos'. */);
Vselection_coding_system = intern ("iso-latin-1-dos");
DEFVAR_LISP ("next-selection-coding-system", &Vnext_selection_coding_system,
doc: /* Coding system for the next communication with other programs.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment