From: Gerd Moellmann <gerd@gnu.org>
Date: Sun, 26 Mar 2000 14:08:22 +0000 (+0000)
Subject: (print_object): Use new macros for per-buffer
X-Git-Tag: emacs-pretest-21.0.90~4493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c3279ad4abd78eb1641c6a1ee3fe37502b21596d;p=emacs.git

(print_object): Use new macros for per-buffer
variables.
---

diff --git a/src/print.c b/src/print.c
index 25e7f0a91ed..b53d137dd69 100644
--- 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;