Mercurial > hg > octave-nkf

comparison liboctave/oct-rl-edit.c @ 5394:256dde4f6aea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-06-15 17:43:44 by jwe]
author jwe
date Wed, 15 Jun 2005 17:43:44 +0000
parents 4c8a2e4e0717
children ace8d8d26933
comparison
equal deleted inserted replaced
5393:c8783205a7c6 5394:256dde4f6aea
78 78
79 XXX FIXME XXX -- It would be safer to do this when protected from 79 XXX FIXME XXX -- It would be safer to do this when protected from
80 interrupts... */ 80 interrupts... */
81 81
82 static void 82 static void
83 no_redisplay (void) 83 flush_stdout (void)
84 { 84 {
85 fflush (stdout);
85 } 86 }
86 87
87 void 88 void
88 octave_rl_clear_screen (void) 89 octave_rl_clear_screen (void)
89 { 90 {
90 int ignore1 = 0; 91 int ignore1 = 0;
91 int ignore2 = 0; 92 int ignore2 = 0;
92 93
93 rl_voidfunc_t *saved_redisplay_function = rl_redisplay_function; 94 rl_voidfunc_t *saved_redisplay_function = rl_redisplay_function;
94 rl_redisplay_function = no_redisplay; 95 rl_redisplay_function = flush_stdout;
95 96
96 rl_clear_screen (ignore1, ignore2); 97 rl_clear_screen (ignore1, ignore2);
97 98
98 rl_redisplay_function = saved_redisplay_function; 99 rl_redisplay_function = saved_redisplay_function;
99 } 100 }