commit/XEmacs: kehoea: Don't RETURN_UNGCPRO() a non-Lisp_Object value, output_string().

1 new commit in XEmacs: https://bitbucket.org/xemacs/xemacs/commits/24f04bada33d/ Changeset: 24f04bada33d User: kehoea Date: 2017-12-29 10:25:26+00:00 Summary: Don't RETURN_UNGCPRO() a non-Lisp_Object value, output_string(). src/ChangeLog addition: 2017-12-29 Aidan Kehoe <kehoea(a)parhasard.net&gt; * print.c (output_string): Don't RETURN_UNGCPRO() a non-Lisp_Object value, thank you Jerry James. Affected #: 2 files diff -r 93eb43f8b6d24b760029efca495bd831aa270ebb -r 24f04bada33d560caea25b9f26471e885d17c1a9 src/ChangeLog --- a/src/ChangeLog +++ b/src/ChangeLog ＠＠ -1,3 +1,9 ＠＠ +2017-12-29 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * print.c (output_string): + Don't RETURN_UNGCPRO() a non-Lisp_Object value, thank you Jerry + James. + 2017-12-29 Aidan Kehoe <kehoea(a)parhasard.net&gt; * process.c: diff -r 93eb43f8b6d24b760029efca495bd831aa270ebb -r 24f04bada33d560caea25b9f26471e885d17c1a9 src/print.c --- a/src/print.c +++ b/src/print.c ＠＠ -464,7 +464,8 ＠＠ if (print_unbuffered) Lstream_flush (XLSTREAM (function)); - RETURN_UNGCPRO (result); + UNGCPRO; + return result; } else if (BUFFERP (function)) { ＠＠ -476,7 +477,8 ＠＠ buffer_insert_string (XBUFFER (function), nonreloc, reloc, offset, len); - RETURN_UNGCPRO (len); + UNGCPRO; + return len; } else if (MARKERP (function)) { ＠＠ -490,7 +492,8 ＠＠ offset, len, -1, 0); set_byte_marker_position (function, byte_marker_position (function) + len); - RETURN_UNGCPRO (len); /* We will have errored on failure. */ + UNGCPRO; + return len; /* We will have errored on failure. */ } else if (FRAMEP (function)) { ＠＠ -507,7 +510,8 ＠＠ clear_echo_area_from_print (f, Qnil, 1); echo_area_append (f, nonreloc, reloc, offset, len, Vprint_message_label); - RETURN_UNGCPRO (len); + UNGCPRO; + return len; } else if (EQ (function, Qt) || EQ (function, Qnil)) { ＠＠ -557,7 +561,8 ＠＠ offset += itext_ichar_len (newnonreloc + offset); } - RETURN_UNGCPRO (len); + UNGCPRO; + return len; } } Repository URL: https://bitbucket.org/xemacs/xemacs/ -- This is a commit notification from bitbucket.org. You are receiving this because you have the service enabled, addressing the recipient of this email.