Mercurial > hg > xemacs-beta

comparison src/event-Xt.c @ 263:727739f917cb r20-5b30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b30
author cvs
date Mon, 13 Aug 2007 10:24:41 +0200
parents 11cf20601dec
children 966663fcf606
comparison
equal deleted inserted replaced
262:9d8607af9e13 263:727739f917cb
1870 int infd = event_stream_unixoid_unselect_process (p); 1870 int infd = event_stream_unixoid_unselect_process (p);
1871 1871
1872 unselect_filedesc (infd); 1872 unselect_filedesc (infd);
1873 } 1873 }
1874 1874
1875 static USID
1876 emacs_Xt_create_stream_pair (void* inhandle, void* outhandle,
1877 Lisp_Object* instream, Lisp_Object* outstream, int flags)
1878 {
1879 USID u = event_stream_unixoid_create_stream_pair
1880 (inhandle, outhandle, instream, outstream, flags);
1881 if (u != USID_ERROR)
1882 u = USID_DONTHASH;
1883 return u;
1884 }
1885
1886 static USID
1887 emacs_Xt_delete_stream_pair (Lisp_Object instream, Lisp_Object outstream)
1888 {
1889 event_stream_unixoid_delete_stream_pair (instream, outstream);
1890 return USID_DONTHASH;
1891 }
1892
1875 /* This is called from GC when a process object is about to be freed. 1893 /* This is called from GC when a process object is about to be freed.
1876 If we've still got pointers to it in this file, we're gonna lose hard. 1894 If we've still got pointers to it in this file, we're gonna lose hard.
1877 */ 1895 */
1878 void 1896 void
1879 debug_process_finalization (struct Lisp_Process *p) 1897 debug_process_finalization (struct Lisp_Process *p)
1880 { 1898 {
1881 #if 0 /* #### */ 1899 #if 0 /* #### */
1882 int i; 1900 int i;
1883 int infd, outfd; 1901 Lisp_Object instr, outstr;
1884 get_process_file_descriptors (p, &infd, &outfd); 1902
1903 get_process_streams (p, &instr, &outstr);
1885 /* if it still has fds, then it hasn't been killed yet. */ 1904 /* if it still has fds, then it hasn't been killed yet. */
1886 assert (infd < 0); 1905 assert (NILP(instr));
1887 assert (outfd < 0); 1906 assert (NILP(outstr));
1888 /* Better not still be in the "with input" table; we know it's got no fds. */ 1907 /* Better not still be in the "with input" table; we know it's got no fds. */
1889 for (i = 0; i < MAXDESC; i++) 1908 for (i = 0; i < MAXDESC; i++)
1890 { 1909 {
1891 Lisp_Object process = filedesc_fds_with_input [i]; 1910 Lisp_Object process = filedesc_fds_with_input [i];
1892 assert (!PROCESSP (process) || XPROCESS (process) != p); 1911 assert (!PROCESSP (process) || XPROCESS (process) != p);
2827 Xt_event_stream->select_console_cb = emacs_Xt_select_console; 2846 Xt_event_stream->select_console_cb = emacs_Xt_select_console;
2828 Xt_event_stream->unselect_console_cb = emacs_Xt_unselect_console; 2847 Xt_event_stream->unselect_console_cb = emacs_Xt_unselect_console;
2829 Xt_event_stream->select_process_cb = emacs_Xt_select_process; 2848 Xt_event_stream->select_process_cb = emacs_Xt_select_process;
2830 Xt_event_stream->unselect_process_cb = emacs_Xt_unselect_process; 2849 Xt_event_stream->unselect_process_cb = emacs_Xt_unselect_process;
2831 Xt_event_stream->quit_p_cb = emacs_Xt_quit_p; 2850 Xt_event_stream->quit_p_cb = emacs_Xt_quit_p;
2851 Xt_event_stream->create_stream_pair_cb= emacs_Xt_create_stream_pair;
2852 Xt_event_stream->delete_stream_pair_cb= emacs_Xt_delete_stream_pair;
2832 2853
2833 DEFVAR_BOOL ("modifier-keys-are-sticky", &modifier_keys_are_sticky /* 2854 DEFVAR_BOOL ("modifier-keys-are-sticky", &modifier_keys_are_sticky /*
2834 *Non-nil makes modifier keys sticky. 2855 *Non-nil makes modifier keys sticky.
2835 This means that you can release the modifier key before pressing down 2856 This means that you can release the modifier key before pressing down
2836 the key that you wish to be modified. Although this is non-standard 2857 the key that you wish to be modified. Although this is non-standard