Mercurial > emacs
diff src/print.c @ 21142:77b24424ae6b
(print): Handle new data structure
for struct Lisp_Buffer_Local_Value.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 12 Mar 1998 05:48:33 +0000 |
| parents | 98172ad9f511 |
| children | 50929073a0ba |
line wrap: on
line diff
--- 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;