mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2025-01-20 18:17:20 +00:00
Don’t set print-escape-newlines in the minibuffer
This appears to be an unnecessary and possibly-confusing revenant from ancient code (Bug#31251). See thread containing: https://lists.gnu.org/r/emacs-devel/2018-04/msg00654.html * src/minibuf.c (read_minibuf): Do not set print-escape-newlines. * src/print.c (syms_of_print): Do not defsym print-escape-newlines or print-escape-control-characters, as these symbols are not used in C code.
This commit is contained in:
parent
28930785d7
commit
a92e7b4ef6
@ -595,13 +595,6 @@ read_minibuf (Lisp_Object map, Lisp_Object initial, Lisp_Object prompt,
|
||||
XWINDOW (minibuf_window)->hscroll = 0;
|
||||
XWINDOW (minibuf_window)->suspend_auto_hscroll = 0;
|
||||
|
||||
/* Why does this code set print-escape-newlines? No call to Fprin1
|
||||
or to Fprint is anywhere in sight. FIXME: Either remove the next
|
||||
two lines of code along with this comment, or replace this
|
||||
comment with an explanation for why the two lines are needed. */
|
||||
Fmake_local_variable (Qprint_escape_newlines);
|
||||
print_escape_newlines = 1;
|
||||
|
||||
/* Erase the buffer. */
|
||||
{
|
||||
ptrdiff_t count1 = SPECPDL_INDEX ();
|
||||
|
@ -2447,10 +2447,8 @@ priorities. */);
|
||||
defsubr (&Sredirect_debugging_output);
|
||||
defsubr (&Sprint_preprocess);
|
||||
|
||||
DEFSYM (Qprint_escape_newlines, "print-escape-newlines");
|
||||
DEFSYM (Qprint_escape_multibyte, "print-escape-multibyte");
|
||||
DEFSYM (Qprint_escape_nonascii, "print-escape-nonascii");
|
||||
DEFSYM (Qprint_escape_control_characters, "print-escape-control-characters");
|
||||
|
||||
print_prune_charset_plist = Qnil;
|
||||
staticpro (&print_prune_charset_plist);
|
||||
|
Loading…
Reference in New Issue
Block a user