diff src/w32select.c @ 22914:4d4e775cf6f7

(Vselection_coding_system): Renamed from Vclipboard_coding_system. (syms_of_w32select): No need to staticpro Vselection_coding_system.

--- a/src/w32select.c	Wed Aug 05 20:41:55 1998 +0000
+++ b/src/w32select.c	Wed Aug 05 22:32:02 1998 +0000
@@ -34,7 +34,7 @@
 
 /* Coding system for communicating with other Windows programs via the
    clipboard.  */
-static Lisp_Object Vclipboard_coding_system;
+static Lisp_Object Vselection_coding_system;
 
 #if 0
 DEFUN ("w32-open-clipboard", Fw32_open_clipboard, Sw32_open_clipboard, 0, 1, 0,
@@ -182,7 +182,7 @@
 	HANDLE htext2;
 
 	setup_coding_system
-	  (Fcheck_coding_system (Vclipboard_coding_system), &coding);
+	  (Fcheck_coding_system (Vselection_coding_system), &coding);
 	coding.mode |= CODING_MODE_LAST_BLOCK;
 	bufsize = encoding_buffer_size (&coding, nbytes);
 	if ((htext = GlobalAlloc (GMEM_MOVEABLE | GMEM_DDESHARE, bufsize)) == NULL)
@@ -255,7 +255,7 @@
 	struct coding_system coding;
 
 	setup_coding_system
-	  (Fcheck_coding_system(Vclipboard_coding_system), &coding);
+	  (Fcheck_coding_system(Vselection_coding_system), &coding);
 	coding.mode |= CODING_MODE_LAST_BLOCK;
 	bufsize = decoding_buffer_size (&coding, nbytes);
 	buf = (unsigned char *) xmalloc (bufsize);
@@ -371,13 +371,12 @@
   defsubr (&Sw32_get_clipboard_data);
   defsubr (&Sx_selection_exists_p);
 
-  DEFVAR_LISP ("clipboard-coding-system", &Vclipboard_coding_system,
+  DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
     "Coding system for communicating with other X clients.\n\
 When sending or receiving text via cut_buffer, selection, and clipboard,\n\
 the text is encoded or decoded by this coding system.\n\
 A default value is `compound-text'");
-  Vclipboard_coding_system=intern ("iso-latin-1-dos");
-  staticpro(&Vclipboard_coding_system);
+  Vselection_coding_system=intern ("iso-latin-1-dos");
 
   QCLIPBOARD = intern ("CLIPBOARD");	staticpro (&QCLIPBOARD);
 }