comparison src/process.c @ 97650:8b1a761cfe61

[!subprocesses]: Define QCname. (syms_of_process): Intern and staticpro it.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 23 Aug 2008 16:48:55 +0000
parents e4a1b306a650
children 1a81f5db02cf
comparison
equal deleted inserted replaced
97649:da105b0d0d3f 97650:8b1a761cfe61
7931 extern int frame_garbaged; 7931 extern int frame_garbaged;
7932 7932
7933 extern EMACS_TIME timer_check (); 7933 extern EMACS_TIME timer_check ();
7934 extern int timers_run; 7934 extern int timers_run;
7935 7935
7936 Lisp_Object QCtype; 7936 Lisp_Object QCtype, QCname;
7937 7937
7938 /* As described above, except assuming that there are no subprocesses: 7938 /* As described above, except assuming that there are no subprocesses:
7939 7939
7940 Wait for timeout to elapse and/or keyboard input to be available. 7940 Wait for timeout to elapse and/or keyboard input to be available.
7941 7941
8271 void 8271 void
8272 syms_of_process () 8272 syms_of_process ()
8273 { 8273 {
8274 QCtype = intern (":type"); 8274 QCtype = intern (":type");
8275 staticpro (&QCtype); 8275 staticpro (&QCtype);
8276 QCname = intern (":name");
8277 staticpro (&QCname);
8276 8278
8277 defsubr (&Sget_buffer_process); 8279 defsubr (&Sget_buffer_process);
8278 defsubr (&Sprocess_inherit_coding_system_flag); 8280 defsubr (&Sprocess_inherit_coding_system_flag);
8279 defsubr (&Slist_system_processes); 8281 defsubr (&Slist_system_processes);
8280 defsubr (&Ssystem_process_attributeses); 8282 defsubr (&Ssystem_process_attributeses);