Mercurial > emacs

comparison src/print.c @ 21250:c6212caa6fe2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(PRINTPREPARE): Use make_string_from_bytes.
author Richard M. Stallman <rms@gnu.org>
date Sat, 21 Mar 1998 17:51:30 +0000
parents 50929073a0ba
children e53943cd93b2
comparison
equal deleted inserted replaced
21249:f90a51f05bee 21250:c6212caa6fe2
1 /* Lisp object printing and output streams. 1 /* Lisp object printing and output streams.
2 Copyright (C) 1985, 86, 88, 93, 94, 95, 97, 98 Free Software Foundation, Inc. 2 Copyright (C) 1985, 86, 88, 93, 94, 95, 97, 1998
3 Free Software Foundation, Inc.
3 4
4 This file is part of GNU Emacs. 5 This file is part of GNU Emacs.
5 6
6 GNU Emacs is free software; you can redistribute it and/or modify 7 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by 8 it under the terms of the GNU General Public License as published by
255 if (NILP (printcharfun)) \ 256 if (NILP (printcharfun)) \
256 { \ 257 { \
257 Lisp_Object string; \ 258 Lisp_Object string; \
258 if (print_buffer != 0) \ 259 if (print_buffer != 0) \
259 { \ 260 { \
260 string = make_multibyte_string (print_buffer, \ 261 string = make_string_from_bytes (print_buffer, \
261 print_buffer_pos, \ 262 print_buffer_pos, \
262 print_buffer_pos_byte); \ 263 print_buffer_pos_byte); \
263 record_unwind_protect (print_unwind, string); \ 264 record_unwind_protect (print_unwind, string); \
264 } \ 265 } \
265 else \ 266 else \
266 { \ 267 { \
267 print_buffer_size = 1000; \ 268 print_buffer_size = 1000; \