Mercurial > hg > xemacs-beta
comparison src/eval.c @ 5086:47bcef7b0b44
Print multiple values with #<INTERNAL OBJECT (XEmacs bug?) ...>, too
2010-03-02 Aidan Kehoe <kehoea@parhasard.net>
* eval.c (print_multiple_value):
Say #<INTERNAL OBJECT (XEmacs bug?) ...> when printing these, for
consistency with the rest of the print code.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 02 Mar 2010 13:20:51 +0000 |
| parents | 6afe991b8135 |
| children | 7be849cb8828 |
comparison
equal
deleted
inserted
replaced
| 5085:1ee30d3f9dd0 | 5086:47bcef7b0b44 |
|---|---|
| 4606 if (print_readably) | 4606 if (print_readably) |
| 4607 { | 4607 { |
| 4608 printing_unreadable_object ("multiple values"); | 4608 printing_unreadable_object ("multiple values"); |
| 4609 } | 4609 } |
| 4610 | 4610 |
| 4611 if (0 == count) | 4611 write_fmt_string (printcharfun, |
| 4612 { | 4612 "#<INTERNAL OBJECT (XEmacs bug?) %d multiple values," |
| 4613 write_msg_string (printcharfun, "#<zero-length multiple value>"); | 4613 " data (", count); |
| 4614 } | |
| 4615 | 4614 |
| 4616 for (index = 0; index < count;) | 4615 for (index = 0; index < count;) |
| 4617 { | 4616 { |
| 4618 if (index != 0 && | 4617 if (index != 0 && |
| 4619 (index < first_desired || | 4618 (index < first_desired || |
| 4630 | 4629 |
| 4631 ++index; | 4630 ++index; |
| 4632 | 4631 |
| 4633 if (count > 1 && index < count) | 4632 if (count > 1 && index < count) |
| 4634 { | 4633 { |
| 4635 write_ascstring (printcharfun, " ;\n"); | 4634 write_ascstring (printcharfun, " "); |
| 4636 } | 4635 } |
| 4637 } | 4636 } |
| 4637 | |
| 4638 write_fmt_string (printcharfun, ") 0x%lx>", (unsigned long) XPNTR (obj)); | |
| 4638 } | 4639 } |
| 4639 | 4640 |
| 4640 static Lisp_Object | 4641 static Lisp_Object |
| 4641 mark_multiple_value (Lisp_Object obj) | 4642 mark_multiple_value (Lisp_Object obj) |
| 4642 { | 4643 { |