Mercurial > emacs
comparison src/print.c @ 373:7c6f74ef31a3
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 04 Aug 1991 21:39:58 +0000 |
| parents | 52f53a69e5c4 |
| children | 34ec8957c6c0 |
comparison
equal
deleted
inserted
replaced
| 372:481e29c1e27e | 373:7c6f74ef31a3 |
|---|---|
| 803 } | 803 } |
| 804 PRINTCHAR (')'); | 804 PRINTCHAR (')'); |
| 805 break; | 805 break; |
| 806 | 806 |
| 807 case Lisp_Compiled: | 807 case Lisp_Compiled: |
| 808 strout ("#<byte-code ", -1, printcharfun); | 808 strout ("#", -1, printcharfun); |
| 809 case Lisp_Vector: | 809 case Lisp_Vector: |
| 810 PRINTCHAR ('['); | 810 PRINTCHAR ('['); |
| 811 { | 811 { |
| 812 register int i; | 812 register int i; |
| 813 register Lisp_Object tem; | 813 register Lisp_Object tem; |
| 817 tem = XVECTOR (obj)->contents[i]; | 817 tem = XVECTOR (obj)->contents[i]; |
| 818 print (tem, printcharfun, escapeflag); | 818 print (tem, printcharfun, escapeflag); |
| 819 } | 819 } |
| 820 } | 820 } |
| 821 PRINTCHAR (']'); | 821 PRINTCHAR (']'); |
| 822 if (XTYPE (obj) == Lisp_Compiled) | |
| 823 PRINTCHAR ('>'); | |
| 824 break; | 822 break; |
| 825 | 823 |
| 826 #ifndef standalone | 824 #ifndef standalone |
| 827 case Lisp_Buffer: | 825 case Lisp_Buffer: |
| 828 if (NULL (XBUFFER (obj)->name)) | 826 if (NULL (XBUFFER (obj)->name)) |