diff options
| author | Paul Eggert | 2018-04-25 12:20:04 -0700 |
|---|---|---|
| committer | Paul Eggert | 2018-04-25 12:25:58 -0700 |
| commit | a92e7b4ef6915e079a97e4e33e45b11508170cb1 (patch) | |
| tree | e51d150a9c85923df8a470233b7cac9bdc5e16c2 | |
| parent | 28930785d7a8ee871f000be3545daab246c96d73 (diff) | |
| download | emacs-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.c | 7 | ||||
| -rw-r--r-- | src/print.c | 2 |
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); |