From 7cef7ce343169850e48de169cf702a0b87886e6a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 3 Sep 2009 00:36:11 +0000 Subject: [PATCH] (Fsend_string_to_terminal): Make it work again on the initial terminal as well. --- src/ChangeLog | 7 ++++++- src/dispnew.c | 30 +++++++++++++++++++----------- 2 files changed, 25 insertions(+), 12 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 9dd82c590f..b8d21c5028 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,7 +1,12 @@ +2009-09-03 Stefan Monnier + + * dispnew.c (Fsend_string_to_terminal): Make it work again on the + initial terminal as well. + 2009-09-02 Jan Djärv * xterm.h: Rename x_non_menubar_window_to_frame to - x_menubar_window_to_frame + x_menubar_window_to_frame. * xterm.c: Remove declarations also in xterm.h (XTmouse_position): Do not return valid positions diff --git a/src/dispnew.c b/src/dispnew.c index 5236d53c01..22a876c8d1 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -6475,8 +6475,8 @@ currently selected frame. */) Lisp_Object string; Lisp_Object terminal; { - struct terminal *t = get_tty_terminal (terminal, 1); - struct tty_display_info *tty; + struct terminal *t = get_terminal (terminal, 1); + FILE *out; /* ??? Perhaps we should do something special for multibyte strings here. */ CHECK_STRING (string); @@ -6485,18 +6485,26 @@ currently selected frame. */) if (!t) error ("Unknown terminal device"); - tty = t->display_info.tty; + if (t->type == output_initial) + out = stdout; + else if (t->type != output_termcap && t->type != output_msdos_raw) + error ("Device %d is not a termcap terminal device", t->id); + else + { + struct tty_display_info *tty = t->display_info.tty; - if (! tty->output) - error ("Terminal is currently suspended"); + if (! tty->output) + error ("Terminal is currently suspended"); - if (tty->termscript) - { - fwrite (SDATA (string), 1, SBYTES (string), tty->termscript); - fflush (tty->termscript); + if (tty->termscript) + { + fwrite (SDATA (string), 1, SBYTES (string), tty->termscript); + fflush (tty->termscript); + } + out = tty->output; } - fwrite (SDATA (string), 1, SBYTES (string), tty->output); - fflush (tty->output); + fwrite (SDATA (string), 1, SBYTES (string), out); + fflush (out); UNBLOCK_INPUT; return Qnil; } -- 2.20.1