diff options
| author | Dmitry Antipov | 2012-08-01 10:23:24 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-08-01 10:23:24 +0400 |
| commit | 3193acd258557340907a7281d067fdbb426c2f54 (patch) | |
| tree | 533f741701969dc6dcb6111ed3c64549fbc0c79a /src/print.c | |
| parent | 3a45383a47009a5e6a15a4005ad95ecf63539182 (diff) | |
| download | emacs-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.c | 4 |
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 | { |