Mercurial > hg > xemacs-beta

comparison src/process.c @ 233:52952cbfc5b5 r20-5b15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b15
author cvs
date Mon, 13 Aug 2007 10:14:14 +0200
parents 2c611d1463a6
children 677f6a0ee643
comparison
equal deleted inserted replaced
232:aa6545ea0638 233:52952cbfc5b5
1885 1885
1886 void 1886 void
1887 set_process_filter (Lisp_Object proc, Lisp_Object filter, int filter_does_read) 1887 set_process_filter (Lisp_Object proc, Lisp_Object filter, int filter_does_read)
1888 { 1888 {
1889 CHECK_PROCESS (proc); 1889 CHECK_PROCESS (proc);
1890 if (PROCESS_LIVE_P (proc)) 1890 if (PROCESS_LIVE_P (proc)) {
1891 if (EQ (filter, Qt)) 1891 if (EQ (filter, Qt))
1892 event_stream_unselect_process (XPROCESS (proc)); 1892 event_stream_unselect_process (XPROCESS (proc));
1893 else 1893 else
1894 event_stream_select_process (XPROCESS (proc)); 1894 event_stream_select_process (XPROCESS (proc));
1895 }
1895 1896
1896 XPROCESS (proc)->filter = filter; 1897 XPROCESS (proc)->filter = filter;
1897 XPROCESS (proc)->filter_does_read = filter_does_read; 1898 XPROCESS (proc)->filter_does_read = filter_does_read;
1898 } 1899 }
1899 1900