Mercurial > hg > xemacs-beta

comparison src/process.c @ 217:d44af0c54775 r20-4b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b7
author cvs
date Mon, 13 Aug 2007 10:08:34 +0200
parents 41ff10fd062f
children 2c611d1463a6
comparison
equal deleted inserted replaced
216:43306a74e31c 217:d44af0c54775
420 420
421 if (GC_NILP (name)) return Qnil; 421 if (GC_NILP (name)) return Qnil;
422 buf = Fget_buffer (name); 422 buf = Fget_buffer (name);
423 if (GC_NILP (buf)) return Qnil; 423 if (GC_NILP (buf)) return Qnil;
424 424
425 #ifdef ENERGIZE
426 {
427 Lisp_Object p = energize_get_buffer_process (buf);
428 if (!GC_NILP (p)) return p;
429 }
430 #endif
431
432 for (tail = Vprocess_list; GC_CONSP (tail); tail = XCDR (tail)) 425 for (tail = Vprocess_list; GC_CONSP (tail); tail = XCDR (tail))
433 { 426 {
434 /* jwz: do not quit here - it isn't necessary, as there is no way for 427 /* jwz: do not quit here - it isn't necessary, as there is no way for
435 Vprocess_list to get circular or overwhelmingly long, and this 428 Vprocess_list to get circular or overwhelmingly long, and this
436 function is called from layout_mode_element under redisplay. */ 429 function is called from layout_mode_element under redisplay. */
1885 Return the marker for the end of the last output from PROCESS. 1878 Return the marker for the end of the last output from PROCESS.
1886 */ 1879 */
1887 (proc)) 1880 (proc))
1888 { 1881 {
1889 CHECK_PROCESS (proc); 1882 CHECK_PROCESS (proc);
1890 #ifdef ENERGIZE
1891 if (EQ (proc, Venergize_process)) /* per buffer rather than per process */
1892 return Fenergize_user_input_buffer_mark (Qnil); /* ## current_buffer ok? */
1893 #endif
1894 return XPROCESS (proc)->mark; 1883 return XPROCESS (proc)->mark;
1895 } 1884 }
1896 1885
1897 void 1886 void
1898 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)