# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 954079702 0
# Node ID 869387703a3636069393ec162d865a24595ac6dd
# Parent  16ed41346de7261df18b1f8283b86607fbea1cca
(print_object): Use new macros for per-buffer
variables.

diff -r 16ed41346de7 -r 869387703a36 src/print.c
--- a/src/print.c	Sun Mar 26 14:07:56 2000 +0000
+++ b/src/print.c	Sun Mar 26 14:08:22 2000 +0000
@@ -1772,9 +1772,9 @@
 
 	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 @@
 	  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;