Mercurial > emacs
comparison src/process.c @ 85372:f7d19cfed7da
* xselect.c (x_own_selection, x_handle_selection_clear)
(x_clear_frame_selections):
* w32menu.c (list_of_panes, list_of_items):
* w32fns.c (w32_color_map_lookup, Fx_create_frame, Fx_display_list):
* textprop.c (validate_plist, interval_has_all_properties)
(interval_has_some_properties, interval_has_some_properties_list)
(add_properties, text_property_list):
* process.c (Fget_buffer_process, list_processes_1, status_notify):
* minibuf.c (Fassoc_string):
* macselect.c (x_own_selection, x_clear_frame_selections)
(Fx_disown_selection_internal):
* keymap.c (Fcommand_remapping, where_is_internal, describe_map_tree):
Use CONSP rather than !NILP and XC[AD]R rather than Fc[ad]r.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Wed, 17 Oct 2007 23:43:52 +0000 |
parents | b949ffc47cba |
children | 17fa7213763d 1251cabc40b7 |
comparison
equal
deleted
inserted
replaced
85371:8f7b544a943f | 85372:f7d19cfed7da |
---|---|
737 | 737 |
738 if (NILP (buffer)) return Qnil; | 738 if (NILP (buffer)) return Qnil; |
739 buf = Fget_buffer (buffer); | 739 buf = Fget_buffer (buffer); |
740 if (NILP (buf)) return Qnil; | 740 if (NILP (buf)) return Qnil; |
741 | 741 |
742 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail)) | 742 for (tail = Vprocess_alist; CONSP (tail); tail = XCDR (tail)) |
743 { | 743 { |
744 proc = Fcdr (Fcar (tail)); | 744 proc = Fcdr (XCAR (tail)); |
745 if (PROCESSP (proc) && EQ (XPROCESS (proc)->buffer, buf)) | 745 if (PROCESSP (proc) && EQ (XPROCESS (proc)->buffer, buf)) |
746 return proc; | 746 return proc; |
747 } | 747 } |
748 return Qnil; | 748 return Qnil; |
749 } | 749 } |
1343 | 1343 |
1344 w_proc = 4; /* Proc */ | 1344 w_proc = 4; /* Proc */ |
1345 w_buffer = 6; /* Buffer */ | 1345 w_buffer = 6; /* Buffer */ |
1346 w_tty = 0; /* Omit if no ttys */ | 1346 w_tty = 0; /* Omit if no ttys */ |
1347 | 1347 |
1348 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail)) | 1348 for (tail = Vprocess_alist; CONSP (tail); tail = XCDR (tail)) |
1349 { | 1349 { |
1350 int i; | 1350 int i; |
1351 | 1351 |
1352 proc = Fcdr (Fcar (tail)); | 1352 proc = Fcdr (XCAR (tail)); |
1353 p = XPROCESS (proc); | 1353 p = XPROCESS (proc); |
1354 if (NILP (p->childp)) | 1354 if (NILP (p->childp)) |
1355 continue; | 1355 continue; |
1356 if (!NILP (query_only) && p->kill_without_query) | 1356 if (!NILP (query_only) && p->kill_without_query) |
1357 continue; | 1357 continue; |
1406 Findent_to (i_tty, minspace); write_string ("---", -1); | 1406 Findent_to (i_tty, minspace); write_string ("---", -1); |
1407 } | 1407 } |
1408 Findent_to (i_command, minspace); write_string ("-------", -1); | 1408 Findent_to (i_command, minspace); write_string ("-------", -1); |
1409 write_string ("\n", -1); | 1409 write_string ("\n", -1); |
1410 | 1410 |
1411 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail)) | 1411 for (tail = Vprocess_alist; CONSP (tail); tail = XCDR (tail)) |
1412 { | 1412 { |
1413 Lisp_Object symbol; | 1413 Lisp_Object symbol; |
1414 | 1414 |
1415 proc = Fcdr (Fcar (tail)); | 1415 proc = Fcdr (XCAR (tail)); |
1416 p = XPROCESS (proc); | 1416 p = XPROCESS (proc); |
1417 if (NILP (p->childp)) | 1417 if (NILP (p->childp)) |
1418 continue; | 1418 continue; |
1419 if (!NILP (query_only) && p->kill_without_query) | 1419 if (!NILP (query_only) && p->kill_without_query) |
1420 continue; | 1420 continue; |
6797 | 6797 |
6798 /* Set this now, so that if new processes are created by sentinels | 6798 /* Set this now, so that if new processes are created by sentinels |
6799 that we run, we get called again to handle their status changes. */ | 6799 that we run, we get called again to handle their status changes. */ |
6800 update_tick = process_tick; | 6800 update_tick = process_tick; |
6801 | 6801 |
6802 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail)) | 6802 for (tail = Vprocess_alist; CONSP (tail); tail = XCDR (tail)) |
6803 { | 6803 { |
6804 Lisp_Object symbol; | 6804 Lisp_Object symbol; |
6805 register struct Lisp_Process *p; | 6805 register struct Lisp_Process *p; |
6806 | 6806 |
6807 proc = Fcdr (Fcar (tail)); | 6807 proc = Fcdr (XCAR (tail)); |
6808 p = XPROCESS (proc); | 6808 p = XPROCESS (proc); |
6809 | 6809 |
6810 if (p->tick != p->update_tick) | 6810 if (p->tick != p->update_tick) |
6811 { | 6811 { |
6812 p->update_tick = p->tick; | 6812 p->update_tick = p->tick; |