(print): Handle new data structure

for struct Lisp_Buffer_Local_Value.

diff --git a/src/print.c b/src/print.c
index 6760af3298f5ba929dc6af98e4bfaf80b914f8f1..9484b927970d1302d6c4915a3af60ae68856bd87 100644 (file)
--- 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;