Mercurial > emacs
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); |