791 |
if (SBYTES (object) == SCHARS (object)) |
if (SBYTES (object) == SCHARS (object)) |
792 |
STRING_SET_UNIBYTE (object); |
STRING_SET_UNIBYTE (object); |
793 |
|
|
794 |
/* Note that this won't make prepare_to_modify_buffer call |
/* Note that this won't make prepare_to_modify_buffer call |
795 |
ask-user-about-supersession-threat because this buffer |
ask-user-about-supersession-threat because this buffer |
796 |
does not visit a file. */ |
does not visit a file. */ |
797 |
Ferase_buffer (); |
Ferase_buffer (); |
929 |
doc: /* Redirect debugging output (stderr stream) to file FILE. |
doc: /* Redirect debugging output (stderr stream) to file FILE. |
930 |
If FILE is nil, reset target to the initial stderr stream. |
If FILE is nil, reset target to the initial stderr stream. |
931 |
Optional arg APPEND non-nil (interactively, with prefix arg) means |
Optional arg APPEND non-nil (interactively, with prefix arg) means |
932 |
append to existing target file. */) |
append to existing target file. */) |
933 |
(file, append) |
(file, append) |
934 |
Lisp_Object file, append; |
Lisp_Object file, append; |
935 |
{ |
{ |
1400 |
register Lisp_Object printcharfun; |
register Lisp_Object printcharfun; |
1401 |
int escapeflag; |
int escapeflag; |
1402 |
{ |
{ |
1403 |
char buf[30]; |
char buf[40]; |
1404 |
|
|
1405 |
QUIT; |
QUIT; |
1406 |
|
|