GitLab

add OBJ to Vprint_number_table only when OBJ is a symbol.

only scan the newly added objects.
(print_preprocess): If OBJ is a gensym, and print-continuous-numbering,
unconditionally force it to stay in the table.

is misleading.
(Ferror_message_string): Remove unused variables.
(print_object): Cast argument of sprintf to long for `%ld'
specifier.  Remove unused variable.

(Vprint_gensym_alist): Removed.
(Vprint_circle, Vprint_continuous_numbering, print_number_index
Vprint_number_table): New variables.
(PRINT_NUMBER_OBJECT, PRINT_NUMBER_STATUS): New macros.
(PRINTPREPARE, PRINTFINISH): Don't set Vprint_gensym_alist.
(print, print_preprocess, print_preprocess_string, print_object):
New/modified functions with print-circle feature.  Use
Vprint_number_table instead of Vprint_gensym_alist for print-gensym.
(syms_of_print): Defined new Lisp variables `print-circle',
`print-continuous-numbering', `print-number-table'.

(print): Likewise.

(glyph_len, str_to_glyph_cpy, str_to_glyph_ncpy,
glyph_to_str_cpy):  Remove that section because GLYPHs are no
longer used in that way.
(PRINTDECLARE): Add multibyte.
(PRINTPREPARE, PRINTFINISH): Handle printcharfun t differently.
(printbufidx): Removed.
(printchar, strout): Rewritten.

(printchar): Set echo_area_message to nil.
(strout): Ditto.

(syms_of_print): Init and staticpro that.
(temp_output_buffer_setup): Run Qtemp_buffer_setup_hook.

to echo area always makes it multibyte.

echo area, always set message_enable_multibyte to 1.

(print): Likewise.

(Qprint_escape_nonascii): New variables.
(syms_of_print): Initialize them and set up Lisp variable.
(PRINTPREPARE): Bind print-escape-multibyte to t if appropriate.
Also bind print-escape-nonascii if appropriate.
(print): Test print_escape_multibyte and print_escape_nonascii,
rather than enable-multibyte-characters.

inserting in a unibyte buffer.

in multibyte case, before calling strout.

(print) <Lisp_String>: Use it to force printing single-byte
non-ASCII characters as octal escapes.
(syms_of_print): Define print-escape-nonascii.

multibyte characters.
(print): Likewise.

(printchar, strout): If echo area text converted to multibyte
does not all fit, truncate it at char boundary.

visited file, undo list, etc.

for struct Lisp_Buffer_Local_Value.

update message_enable_multibyte, and convert previous text
from unibyte to multibyte if necessary.

`unsigned char' to handle multibyte character code.

single-byte non-ASCII chars using octal escapes.

(print): When multibyte is disabled,
print multibyte string chars using hex escapes.

(printchar): Pass new arg to message_dolog.
(strout): New arg MULTIBYTE.  Callers changed.

(strout): Take args SIZE and SIZE_BYTE;
operate on both chars and bytes.
(print_string): Pass new arg to strout.
If not using strout, fetch a whole multibyte char at once.
(write_string): Pass new arg to strout.
(write_string_1): Likewise.
(print) <case Lisp_String>: Scan by chars and bytes.
(print) <case Lisp_Symbol>: Scan name by chars and bytes.

(PRINTPREPARE): Use make_multibyte_string.
Initialize print_buffer_pos_byte.  Use insert_1_both.
(printchar): Update print_buffer_pos_byte and print_buffer_pos.
(print_buffer_pos_byte): New variable.

(PRINTPREPARE): For a marker, set old_point_byte and start_point_byte.
Set both kinds of PT from the marker.
(PRINTFINISH): For a marker, use set_marker_both.
Restore both kinds of PT.
(print): For strings and symbols, handle multibyte chars.