(print_object): Use new macros for per-buffer

variables.

diff --git a/src/print.c b/src/print.c
index 25e7f0a91ed0a4c281bcca34b239d4c0becaff9c..b53d137dd695b9774da41c6c00c26760941c2db5 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1772,9 +1772,9 @@ print_object (obj, printcharfun, escapeflag)
 
        case Lisp_Misc_Buffer_Objfwd:
          strout ("#<buffer_objfwd to ", -1, -1, printcharfun, 0);
-         print_object (*(Lisp_Object *)((char *)current_buffer
-                                        + XBUFFER_OBJFWD (obj)->offset),
-                printcharfun, escapeflag);
+         print_object (BUFFER_LOCAL_VALUE (current_buffer,
+                                           XBUFFER_OBJFWD (obj)->offset),
+                       printcharfun, escapeflag);
          PRINTCHAR ('>');
          break;
 
@@ -1782,7 +1782,7 @@ print_object (obj, printcharfun, escapeflag)
          strout ("#<kboard_objfwd to ", -1, -1, printcharfun, 0);
          print_object (*(Lisp_Object *)((char *) current_kboard
                                         + XKBOARD_OBJFWD (obj)->offset),
-                printcharfun, escapeflag);
+                       printcharfun, escapeflag);
          PRINTCHAR ('>');
          break;