From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 12 Mar 1998 05:48:33 +0000 (+0000)
Subject: (print): Handle new data structure
X-Git-Tag: emacs-20.3~1932
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0315377157bb94d1c0ed0d1a365576228c0243ee;p=emacs.git

(print): Handle new data structure
for struct Lisp_Buffer_Local_Value.
---

diff --git a/src/print.c b/src/print.c
index 6760af3298f..9484b927970 100644
--- a/src/print.c
+++ b/src/print.c
@@ -1616,15 +1616,27 @@ print (obj, printcharfun, escapeflag)
 	  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 (XCONS (XBUFFER_LOCAL_VALUE (obj)->cdr)->car,
+	  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 (XCONS (XBUFFER_LOCAL_VALUE (obj)->cdr)->cdr)->car,
+	  print (XCONS (XBUFFER_LOCAL_VALUE (obj)->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;