# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 889681713 0
# Node ID 77b24424ae6bb211c80fc5d10a40f107e803a37a
# Parent  e30cebe8ae7ce1f637b1afa551d41254804997ed
(print): Handle new data structure
for struct Lisp_Buffer_Local_Value.

diff -r e30cebe8ae7c -r 77b24424ae6b src/print.c
--- a/src/print.c	Thu Mar 12 05:47:39 1998 +0000
+++ b/src/print.c	Thu Mar 12 05:48:33 1998 +0000
@@ -1616,15 +1616,27 @@
 	  strout ("#<some_buffer_local_value ", -1, -1, printcharfun, 0);
 	do_buffer_local:
 	  strout ("[realvalue] ", -1, -1, printcharfun, 0);
-	  print (XBUFFER_LOCAL_VALUE (obj)->car, printcharfun, escapeflag);
-	  strout ("[buffer] ", -1, -1, printcharfun, 0);
+	  print (XBUFFER_LOCAL_VALUE (obj)->realvalue, printcharfun, escapeflag);
+	  if (XBUFFER_LOCAL_VALUE (obj)->found_for_buffer)
+	    strout ("[local in buffer] ", -1, -1, printcharfun, 0);
+	  else
+	    strout ("[buffer] ", -1, -1, printcharfun, 0);
+	  print (XBUFFER_LOCAL_VALUE (obj)->buffer,
+		 printcharfun, escapeflag);
+	  if (XBUFFER_LOCAL_VALUE (obj)->check_frame)
+	    {
+	      if (XBUFFER_LOCAL_VALUE (obj)->found_for_frame)
+		strout ("[local in frame] ", -1, -1, printcharfun, 0);
+	      else
+		strout ("[frame] ", -1, -1, printcharfun, 0);
+	      print (XBUFFER_LOCAL_VALUE (obj)->frame,
+		     printcharfun, escapeflag);
+	    }
+	  strout ("[alist-elt] ", -1, -1, printcharfun, 0);
 	  print (XCONS (XBUFFER_LOCAL_VALUE (obj)->cdr)->car,
 		 printcharfun, escapeflag);
-	  strout ("[alist-elt] ", -1, -1, printcharfun, 0);
-	  print (XCONS (XCONS (XBUFFER_LOCAL_VALUE (obj)->cdr)->cdr)->car,
-		 printcharfun, escapeflag);
 	  strout ("[default-value] ", -1, -1, printcharfun, 0);
-	  print (XCONS (XCONS (XBUFFER_LOCAL_VALUE (obj)->cdr)->cdr)->cdr,
+	  print (XCONS (XBUFFER_LOCAL_VALUE (obj)->cdr)->cdr,
 		 printcharfun, escapeflag);
 	  PRINTCHAR ('>');
 	  break;