aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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);