Mercurial > octave-nkf
diff src/pager.cc @ 4324:dcdca99fe2f0
[project @ 2003-02-15 03:18:43 by jwe]
| author | jwe |
|---|---|
| date | Sat, 15 Feb 2003 03:18:44 +0000 |
| parents | ccfdb55c8156 |
| children | 0f9108f298ab |
line wrap: on
line diff
--- a/src/pager.cc Fri Feb 14 07:36:27 2003 +0000 +++ b/src/pager.cc Sat Feb 15 03:18:44 2003 +0000 @@ -501,12 +501,19 @@ std::string arg = argv[1]; if (arg == "on") - bind_builtin_variable ("page_screen_output", 1.0); + bind_builtin_variable ("page_screen_output", true); else if (arg == "off") - bind_builtin_variable ("page_screen_output", 0.0); + bind_builtin_variable ("page_screen_output", false); else error ("more: unrecognized argument `%s'", arg.c_str ()); } + else if (argc == 1) + { + octave_value tmp = builtin_any_variable ("page_screen_output"); + + if (! error_state) + bind_builtin_variable ("page_screen_output", ! tmp.is_true ()); + } else print_usage ("more");