aboutsummaryrefslogtreecommitdiffstats
path: root/src/xselect.c
diff options
context:
space:
mode:
authorRichard M. Stallman1998-07-11 20:42:12 +0000
committerRichard M. Stallman1998-07-11 20:42:12 +0000
commit93e4ce1b88af9466a13bd876a73ee60ded1a6052 (patch)
treea67fdaacf2ae643fcfca1e7a4065b8de0adeda3c /src/xselect.c
parent59588cd48bd100ace7bea70b10c7c4b85de30cf1 (diff)
downloademacs-93e4ce1b88af9466a13bd876a73ee60ded1a6052.tar.gz
emacs-93e4ce1b88af9466a13bd876a73ee60ded1a6052.zip
(Vselection_coding_system):
Renamed from Vclipboard_coding_system. All uses changed. (syms_of_xselect): Rename Lisp variable.
Diffstat (limited to 'src/xselect.c')
-rw-r--r--src/xselect.c11
1 files changed, 5 insertions, 6 deletions
diff --git a/src/xselect.c b/src/xselect.c
index 713db184ef8..b05a21ea453 100644
--- a/src/xselect.c
+++ b/src/xselect.c
@@ -49,7 +49,7 @@ static Lisp_Object Vx_lost_selection_hooks;
49static Lisp_Object Vx_sent_selection_hooks; 49static Lisp_Object Vx_sent_selection_hooks;
50/* Coding system for communicating with other X clients via cutbuffer, 50/* Coding system for communicating with other X clients via cutbuffer,
51 selection, and clipboard. */ 51 selection, and clipboard. */
52static Lisp_Object Vclipboard_coding_system; 52static Lisp_Object Vselection_coding_system;
53 53
54/* If this is a smaller number than the max-request-size of the display, 54/* If this is a smaller number than the max-request-size of the display,
55 emacs will use INCR selection transfer when the selection is larger 55 emacs will use INCR selection transfer when the selection is larger
@@ -1505,7 +1505,7 @@ selection_data_to_lisp_data (display, data, size, type, format)
1505 struct coding_system coding; 1505 struct coding_system coding;
1506 1506
1507 setup_coding_system 1507 setup_coding_system
1508 (Fcheck_coding_system(Vclipboard_coding_system), &coding); 1508 (Fcheck_coding_system(Vselection_coding_system), &coding);
1509 coding.mode |= CODING_MODE_LAST_BLOCK; 1509 coding.mode |= CODING_MODE_LAST_BLOCK;
1510 bufsize = decoding_buffer_size (&coding, size); 1510 bufsize = decoding_buffer_size (&coding, size);
1511 buf = (unsigned char *) xmalloc (bufsize); 1511 buf = (unsigned char *) xmalloc (bufsize);
@@ -1644,7 +1644,7 @@ lisp_data_to_selection_data (display, obj,
1644 struct coding_system coding; 1644 struct coding_system coding;
1645 1645
1646 setup_coding_system 1646 setup_coding_system
1647 (Fcheck_coding_system (Vclipboard_coding_system), &coding); 1647 (Fcheck_coding_system (Vselection_coding_system), &coding);
1648 coding.mode |= CODING_MODE_LAST_BLOCK; 1648 coding.mode |= CODING_MODE_LAST_BLOCK;
1649 bufsize = encoding_buffer_size (&coding, *size_ret); 1649 bufsize = encoding_buffer_size (&coding, *size_ret);
1650 buf = (unsigned char *) xmalloc (bufsize); 1650 buf = (unsigned char *) xmalloc (bufsize);
@@ -2281,13 +2281,12 @@ This hook doesn't let you change the behavior of Emacs's selection replies,\n\
2281it merely informs you that they have happened."); 2281it merely informs you that they have happened.");
2282 Vx_sent_selection_hooks = Qnil; 2282 Vx_sent_selection_hooks = Qnil;
2283 2283
2284 DEFVAR_LISP ("clipboard-coding-system", &Vclipboard_coding_system, 2284 DEFVAR_LISP ("selection-coding-system", &Vselection_coding_system,
2285 "Coding system for communicating with other X clients.\n\ 2285 "Coding system for communicating with other X clients.\n\
2286When sending or receiving text via cut_buffer, selection, and clipboard,\n\ 2286When sending or receiving text via cut_buffer, selection, and clipboard,\n\
2287the text is encoded or decoded by this coding system.\n\ 2287the text is encoded or decoded by this coding system.\n\
2288A default value is `compound-text'"); 2288A default value is `compound-text'");
2289 Vclipboard_coding_system=intern ("compound-text"); 2289 Vselection_coding_system = intern ("compound-text");
2290 staticpro(&Vclipboard_coding_system);
2291 2290
2292 DEFVAR_INT ("x-selection-timeout", &x_selection_timeout, 2291 DEFVAR_INT ("x-selection-timeout", &x_selection_timeout,
2293 "Number of milliseconds to wait for a selection reply.\n\ 2292 "Number of milliseconds to wait for a selection reply.\n\