mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-16 08:10:43 -08:00
Code Issues Projects Releases Wiki Activity

(print_string): Use insert_from_string for output to buffer.

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-05 22:53:36 +00:00
parent c933ea05f8
commit 5e8878637b
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/print.c
View file

@ -300,9 +300,17 @@ print_string (string, printcharfun)
Lisp_Object string;
Lisp_Object printcharfun;
{
if (EQ (printcharfun, Qnil) || EQ (printcharfun, Qt))
/* In predictable cases, strout is safe: output to buffer or frame. */
if (EQ (printcharfun, Qt))
/* strout is safe for output to a frame (echo area). */
strout (XSTRING (string)->data, XSTRING (string)->size, printcharfun);
else if (EQ (printcharfun, Qnil))
{
#ifdef MAX_PRINT_CHARS
if (max_print)
print_chars += XSTRING (string)->size;
#endif /* MAX_PRINT_CHARS */
insert_from_string (string, 0, XSTRING (string)->size, 1);
}
else
{
/* Otherwise, fetch the string address for each character. */