mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(print_object): Increase buf size.

Browse Source
This commit is contained in:
Kim F. Storm 2004-05-17 22:47:40 +00:00
parent 1a8da67061
commit 28b8f74030
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/print.c
View File

@ -791,7 +791,7 @@ A printed representation of an object is text which describes that object. */)
if (SBYTES (object) == SCHARS (object)) if (SBYTES (object) == SCHARS (object))
STRING_SET_UNIBYTE (object); STRING_SET_UNIBYTE (object);
/* Note that this won't make prepare_to_modify_buffer call /* Note that this won't make prepare_to_modify_buffer call
ask-user-about-supersession-threat because this buffer ask-user-about-supersession-threat because this buffer
does not visit a file. */ does not visit a file. */
Ferase_buffer (); Ferase_buffer ();
@ -929,7 +929,7 @@ DEFUN ("redirect-debugging-output", Fredirect_debugging_output, Sredirect_debugg
doc: /* Redirect debugging output (stderr stream) to file FILE. doc: /* Redirect debugging output (stderr stream) to file FILE.
If FILE is nil, reset target to the initial stderr stream. If FILE is nil, reset target to the initial stderr stream.
Optional arg APPEND non-nil (interactively, with prefix arg) means Optional arg APPEND non-nil (interactively, with prefix arg) means
append to existing target file. */) append to existing target file. */)
(file, append) (file, append)
Lisp_Object file, append; Lisp_Object file, append;
{ {
@ -1400,7 +1400,7 @@ print_object (obj, printcharfun, escapeflag)
register Lisp_Object printcharfun; register Lisp_Object printcharfun;
int escapeflag; int escapeflag;
{ {
char buf[30]; char buf[40];
QUIT; QUIT;