From 7dcccee4371477e983f026db9e243cb66900b1ef Mon Sep 17 00:00:00 2001
From: Hans Bolinder <hasse@erlang.org>
Date: Fri, 22 Feb 2013 10:04:51 +0100
Subject: [stdlib] Let the shell turn off echo while skipping line

The I/O-server group.erl echoed the skipped line.
---
 lib/stdlib/src/shell.erl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/stdlib/src')

diff --git a/lib/stdlib/src/shell.erl b/lib/stdlib/src/shell.erl
index 96f3e5dd32..c6c706c3a7 100644
--- a/lib/stdlib/src/shell.erl
+++ b/lib/stdlib/src/shell.erl
@@ -283,7 +283,12 @@ get_command(Prompt, Eval, Bs, RT, Ds) ->
                           eof;
                       {error,ErrorInfo,_EndPos} ->
                           %% Skip the rest of the line:
+                          Opts = io:getopts(),
+                          TmpOpts = lists:keyreplace(echo, 1, Opts,
+                                                     {echo, false}),
+                          _ = io:setopts(TmpOpts),
                           _ = io:get_line(''),
+                          _ = io:setopts(Opts),
                           {error,ErrorInfo};
                       Else ->
                           Else
-- 
cgit v1.2.3