aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPaul Eggert2018-04-25 12:20:04 -0700
committerPaul Eggert2018-04-25 12:25:58 -0700
commita92e7b4ef6915e079a97e4e33e45b11508170cb1 (patch)
treee51d150a9c85923df8a470233b7cac9bdc5e16c2
parent28930785d7a8ee871f000be3545daab246c96d73 (diff)
downloademacs-a92e7b4ef6915e079a97e4e33e45b11508170cb1.tar.gz
emacs-a92e7b4ef6915e079a97e4e33e45b11508170cb1.zip
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.
-rw-r--r--src/minibuf.c7
-rw-r--r--src/print.c2
2 files changed, 0 insertions, 9 deletions
diff --git a/src/minibuf.c b/src/minibuf.c
index 11b3fe2b9c2..c41958d85f9 100644
--- a/src/minibuf.c
+++ b/src/minibuf.c
@@ -595,13 +595,6 @@ read_minibuf (Lisp_Object map, Lisp_Object initial, Lisp_Object prompt,
595 XWINDOW (minibuf_window)->hscroll = 0; 595 XWINDOW (minibuf_window)->hscroll = 0;
596 XWINDOW (minibuf_window)->suspend_auto_hscroll = 0; 596 XWINDOW (minibuf_window)->suspend_auto_hscroll = 0;
597 597
598 /* Why does this code set print-escape-newlines? No call to Fprin1
599 or to Fprint is anywhere in sight. FIXME: Either remove the next
600 two lines of code along with this comment, or replace this
601 comment with an explanation for why the two lines are needed. */
602 Fmake_local_variable (Qprint_escape_newlines);
603 print_escape_newlines = 1;
604
605 /* Erase the buffer. */ 598 /* Erase the buffer. */
606 { 599 {
607 ptrdiff_t count1 = SPECPDL_INDEX (); 600 ptrdiff_t count1 = SPECPDL_INDEX ();
diff --git a/src/print.c b/src/print.c
index a8bbb9d37a1..7c6856af48c 100644
--- a/src/print.c
+++ b/src/print.c
@@ -2447,10 +2447,8 @@ priorities. */);
2447 defsubr (&Sredirect_debugging_output); 2447 defsubr (&Sredirect_debugging_output);
2448 defsubr (&Sprint_preprocess); 2448 defsubr (&Sprint_preprocess);
2449 2449
2450 DEFSYM (Qprint_escape_newlines, "print-escape-newlines");
2451 DEFSYM (Qprint_escape_multibyte, "print-escape-multibyte"); 2450 DEFSYM (Qprint_escape_multibyte, "print-escape-multibyte");
2452 DEFSYM (Qprint_escape_nonascii, "print-escape-nonascii"); 2451 DEFSYM (Qprint_escape_nonascii, "print-escape-nonascii");
2453 DEFSYM (Qprint_escape_control_characters, "print-escape-control-characters");
2454 2452
2455 print_prune_charset_plist = Qnil; 2453 print_prune_charset_plist = Qnil;
2456 staticpro (&print_prune_charset_plist); 2454 staticpro (&print_prune_charset_plist);