aboutsummaryrefslogtreecommitdiffstats
path: root/src/print.c
diff options
context:
space:
mode:
authorDmitry Antipov2012-08-01 10:23:24 +0400
committerDmitry Antipov2012-08-01 10:23:24 +0400
commit3193acd258557340907a7281d067fdbb426c2f54 (patch)
tree533f741701969dc6dcb6111ed3c64549fbc0c79a /src/print.c
parent3a45383a47009a5e6a15a4005ad95ecf63539182 (diff)
downloademacs-3193acd258557340907a7281d067fdbb426c2f54.tar.gz
emacs-3193acd258557340907a7281d067fdbb426c2f54.zip
Use INTERNAL_FIELD for processes.
* src/process.h (PVAR): New macro. Adjust style. (struct Lisp_Process): Change Lisp_Object members to INTERNAL_FIELD. * src/print.c, src/process.c, src/sysdep.c, src/w32.c: * src/xdisp.c: Users changed. * admin/coccinelle/process.cocci: Semantic patch to replace direct access to Lisp_Object members of struct Lisp_Process to PVAR.
Diffstat (limited to 'src/print.c')
-rw-r--r--src/print.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/print.c b/src/print.c
index 5effec7fd44..c4b96ff88ff 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1699,11 +1699,11 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
1699 if (escapeflag) 1699 if (escapeflag)
1700 { 1700 {
1701 strout ("#<process ", -1, -1, printcharfun); 1701 strout ("#<process ", -1, -1, printcharfun);
1702 print_string (XPROCESS (obj)->name, printcharfun); 1702 print_string (PVAR (XPROCESS (obj), name), printcharfun);
1703 PRINTCHAR ('>'); 1703 PRINTCHAR ('>');
1704 } 1704 }
1705 else 1705 else
1706 print_string (XPROCESS (obj)->name, printcharfun); 1706 print_string (PVAR (XPROCESS (obj), name), printcharfun);
1707 } 1707 }
1708 else if (BOOL_VECTOR_P (obj)) 1708 else if (BOOL_VECTOR_P (obj))
1709 { 1709 {