Mercurial > hg > octave-nkf

diff liboctave/util/cmd-edit.cc @ 16537:106a38d7b396

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
optionall disable redisplay in command editor clear screen function * oct-rl-edit.c (octave_rl_clear_screen): Likewise. If skip_redisplay is true, override rl_redisplay_function. Otherwise, just call rl_clear_screen. * cmd-edit.h, cmd-edit.cc (command_editor::clear_screen, command_editor::do_clear_screen, gnu_readline::do_clear_screen): New arg, skip_redisplay. * sysdep.cc (Fclc): Pass true to command_editor::clear_screen.
author John W. Eaton <jwe@octave.org>
date Thu, 18 Apr 2013 02:02:59 -0400
parents 6ebd1e1a6b73
children 8ea8df0747e9
line wrap: on
line diff
--- a/liboctave/util/cmd-edit.cc
+++ b/liboctave/util/cmd-edit.cc
@@ -90,7 +90,7 @@
 
   int do_terminal_cols (void);
 
-  void do_clear_screen (void);
+  void do_clear_screen (bool skip_redisplay);
 
   void do_resize_terminal (void);
 
@@ -315,9 +315,9 @@
 }
 
 void
-gnu_readline::do_clear_screen (void)
+gnu_readline::do_clear_screen (bool skip_redisplay)
 {
-  ::octave_rl_clear_screen ();
+  ::octave_rl_clear_screen (skip_redisplay);
 }
 
 void
@@ -976,10 +976,10 @@
 }
 
 void
-command_editor::clear_screen (void)
+command_editor::clear_screen (bool skip_redisplay)
 {
   if (instance_ok ())
-    instance->do_clear_screen ();
+    instance->do_clear_screen (skip_redisplay);
 }
 
 void