Use INTERNAL_FIELD for processes.

[bpt/emacs.git] / src / print.c

diff --git a/src/print.c b/src/print.c
index 5effec7..c4b96ff 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1699,11 +1699,11 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
          if (escapeflag)
            {
              strout ("#<process ", -1, -1, printcharfun);
-             print_string (XPROCESS (obj)->name, printcharfun);
+             print_string (PVAR (XPROCESS (obj), name), printcharfun);
              PRINTCHAR ('>');
            }
          else
-           print_string (XPROCESS (obj)->name, printcharfun);
+           print_string (PVAR (XPROCESS (obj), name), printcharfun);
        }
       else if (BOOL_VECTOR_P (obj))
        {