From 0315377157bb94d1c0ed0d1a365576228c0243ee Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 12 Mar 1998 05:48:33 +0000 Subject: [PATCH] (print): Handle new data structure for struct Lisp_Buffer_Local_Value. --- src/print.c | 22 +++++++++++++++++----- 1 file changed, 17 insertions(+), 5 deletions(-) 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 ("#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; -- 2.39.2