diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/print.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/print.c b/src/print.c index 25e7f0a91ed..b53d137dd69 100644 --- a/src/print.c +++ b/src/print.c | |||
| @@ -1772,9 +1772,9 @@ print_object (obj, printcharfun, escapeflag) | |||
| 1772 | 1772 | ||
| 1773 | case Lisp_Misc_Buffer_Objfwd: | 1773 | case Lisp_Misc_Buffer_Objfwd: |
| 1774 | strout ("#<buffer_objfwd to ", -1, -1, printcharfun, 0); | 1774 | strout ("#<buffer_objfwd to ", -1, -1, printcharfun, 0); |
| 1775 | print_object (*(Lisp_Object *)((char *)current_buffer | 1775 | print_object (BUFFER_LOCAL_VALUE (current_buffer, |
| 1776 | + XBUFFER_OBJFWD (obj)->offset), | 1776 | XBUFFER_OBJFWD (obj)->offset), |
| 1777 | printcharfun, escapeflag); | 1777 | printcharfun, escapeflag); |
| 1778 | PRINTCHAR ('>'); | 1778 | PRINTCHAR ('>'); |
| 1779 | break; | 1779 | break; |
| 1780 | 1780 | ||
| @@ -1782,7 +1782,7 @@ print_object (obj, printcharfun, escapeflag) | |||
| 1782 | strout ("#<kboard_objfwd to ", -1, -1, printcharfun, 0); | 1782 | strout ("#<kboard_objfwd to ", -1, -1, printcharfun, 0); |
| 1783 | print_object (*(Lisp_Object *)((char *) current_kboard | 1783 | print_object (*(Lisp_Object *)((char *) current_kboard |
| 1784 | + XKBOARD_OBJFWD (obj)->offset), | 1784 | + XKBOARD_OBJFWD (obj)->offset), |
| 1785 | printcharfun, escapeflag); | 1785 | printcharfun, escapeflag); |
| 1786 | PRINTCHAR ('>'); | 1786 | PRINTCHAR ('>'); |
| 1787 | break; | 1787 | break; |
| 1788 | 1788 | ||