Drop PGET and revert read access to Lisp_Objects slots of Lisp_Process.

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

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