Mercurial > emacs

comparison src/xselect.c @ 11702:afad0099d14b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Vx_sent_selection_hooks, Vx_lost_selection_hooks, Vselection_alist) (Vselection_converter_alist, x_selection_timeout): Make static.
author Richard M. Stallman <rms@gnu.org>
date Fri, 05 May 1995 03:00:07 +0000
parents e6bdaaa6ce1b
children 3c292d5eed59
comparison
equal deleted inserted replaced
11701:d0eaa6b6dc72 11702:afad0099d14b
38 #ifdef CUT_BUFFER_SUPPORT 38 #ifdef CUT_BUFFER_SUPPORT
39 Lisp_Object QCUT_BUFFER0, QCUT_BUFFER1, QCUT_BUFFER2, QCUT_BUFFER3, 39 Lisp_Object QCUT_BUFFER0, QCUT_BUFFER1, QCUT_BUFFER2, QCUT_BUFFER3,
40 QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7; 40 QCUT_BUFFER4, QCUT_BUFFER5, QCUT_BUFFER6, QCUT_BUFFER7;
41 #endif 41 #endif
42 42
43 Lisp_Object Vx_lost_selection_hooks; 43 static Lisp_Object Vx_lost_selection_hooks;
44 Lisp_Object Vx_sent_selection_hooks; 44 static Lisp_Object Vx_sent_selection_hooks;
45 45
46 /* If this is a smaller number than the max-request-size of the display, 46 /* If this is a smaller number than the max-request-size of the display,
47 emacs will use INCR selection transfer when the selection is larger 47 emacs will use INCR selection transfer when the selection is larger
48 than this. The max-request-size is usually around 64k, so if you want 48 than this. The max-request-size is usually around 64k, so if you want
49 emacs to use incremental selection transfers when the selection is 49 emacs to use incremental selection transfers when the selection is
50 smaller than that, set this. I added this mostly for debugging the 50 smaller than that, set this. I added this mostly for debugging the
51 incremental transfer stuff, but it might improve server performance. 51 incremental transfer stuff, but it might improve server performance. */
52 */
53 #define MAX_SELECTION_QUANTUM 0xFFFFFF 52 #define MAX_SELECTION_QUANTUM 0xFFFFFF
54 53
55 #ifdef HAVE_X11R4 54 #ifdef HAVE_X11R4
56 #define SELECTION_QUANTUM(dpy) ((XMaxRequestSize(dpy) << 2) - 100) 55 #define SELECTION_QUANTUM(dpy) ((XMaxRequestSize(dpy) << 2) - 100)
57 #else 56 #else
70 as a cons of two 16-bit numbers (making a 32 bit time.) 69 as a cons of two 16-bit numbers (making a 32 bit time.)
71 FRAME is the frame for which we made the selection. 70 FRAME is the frame for which we made the selection.
72 If there is an entry in this alist, then it can be assumed that Emacs owns 71 If there is an entry in this alist, then it can be assumed that Emacs owns
73 that selection. 72 that selection.
74 The only (eq) parts of this list that are visible from Lisp are the 73 The only (eq) parts of this list that are visible from Lisp are the
75 selection-values. 74 selection-values. */
76 */ 75 static Lisp_Object Vselection_alist;
77 Lisp_Object Vselection_alist;
78 76
79 /* This is an alist whose CARs are selection-types (whose names are the same 77 /* This is an alist whose CARs are selection-types (whose names are the same
80 as the names of X Atoms) and whose CDRs are the names of Lisp functions to 78 as the names of X Atoms) and whose CDRs are the names of Lisp functions to
81 call to convert the given Emacs selection value to a string representing 79 call to convert the given Emacs selection value to a string representing
82 the given selection type. This is for Lisp-level extension of the emacs 80 the given selection type. This is for Lisp-level extension of the emacs
83 selection handling. 81 selection handling. */
84 */ 82 static Lisp_Object Vselection_converter_alist;
85 Lisp_Object Vselection_converter_alist;
86 83
87 /* If the selection owner takes too long to reply to a selection request, 84 /* If the selection owner takes too long to reply to a selection request,
88 we give up on it. This is in milliseconds (0 = no timeout.) 85 we give up on it. This is in milliseconds (0 = no timeout.) */
89 */ 86 static int x_selection_timeout;
90 int x_selection_timeout;
91 87
92 /* Utility functions */ 88 /* Utility functions */
93 89
94 static void lisp_data_to_selection_data (); 90 static void lisp_data_to_selection_data ();
95 static Lisp_Object selection_data_to_lisp_data (); 91 static Lisp_Object selection_data_to_lisp_data ();