Drop WGET and revert read access to Lisp_Objects slots of struct window.

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

diff --git a/src/print.c b/src/print.c
index 3972655..ffa8a9b 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1773,10 +1773,10 @@ print_object (Lisp_Object obj, register Lisp_Object printcharfun, int escapeflag
          strout ("#<window ", -1, -1, printcharfun);
          len = sprintf (buf, "%d", XWINDOW (obj)->sequence_number);
          strout (buf, len, len, printcharfun);
-         if (!NILP (WGET (XWINDOW (obj), buffer)))
+         if (!NILP (XWINDOW (obj)->buffer))
            {
              strout (" on ", -1, -1, printcharfun);
-             print_string (BVAR (XBUFFER (WGET (XWINDOW (obj), buffer)), name),
+             print_string (BVAR (XBUFFER (XWINDOW (obj)->buffer), name),
                            printcharfun);
            }
          PRINTCHAR ('>');