Add "continue" response to pager
This adds a "continue" response to the pager. If the user types "c" in response to the pager prompt, pagination will be disabled for the duration of one command -- but re-enabled afterward. This is handy if you type a command that produces a lot of output, and you don't want to baby-sit it by typing "return" each time the prompt comes up. Tested by the buildbot. gdb/ChangeLog 2018-06-05 Tom Tromey <tom@tromey.com> PR cli/12326: * NEWS: Add entry about pager. * utils.c (pagination_disabled_for_command): New global. (prompt_for_continue): Allow "c" response to prompt. (reinitialize_more_filter): Clear pagination_disabled_for_command. (fputs_maybe_filtered): Check pagination_disabled_for_command. gdb/doc/ChangeLog 2018-06-05 Tom Tromey <tom@tromey.com> PR cli/12326: * gdb.texinfo (Screen Size): Document "c" response to pagination prompt. gdb/testsuite/ChangeLog 2018-06-05 Tom Tromey <tom@tromey.com> PR cli/12326: * gdb.cp/static-print-quit.exp: Update. * lib/gdb.exp (pagination_prompt): Update. * gdb.base/page.exp: Use pagination_prompt. Add new tests. * gdb.python/python.exp: Update.
This commit is contained in:
parent
5c4ce239a3
commit
eb6af80922
10 changed files with 89 additions and 23 deletions
|
@ -143,13 +143,13 @@ gdb_test_no_output "set height $lines"
|
|||
|
||||
set test "verify pagination beforehand"
|
||||
gdb_test_multiple "python print (\"\\n\" * $lines)" $test {
|
||||
-re "---Type <return>" {
|
||||
-re "--Type <RET>" {
|
||||
exp_continue
|
||||
}
|
||||
-re " to continue, or q <return>" {
|
||||
-re " for more, q to quit" {
|
||||
exp_continue
|
||||
}
|
||||
-re " to quit---$" {
|
||||
-re ", c to continue without paging--$" {
|
||||
pass $test
|
||||
}
|
||||
}
|
||||
|
@ -159,13 +159,13 @@ gdb_test "python if gdb.execute('python print (\"\\\\n\" * $lines)', to_string=T
|
|||
|
||||
set test "verify pagination afterwards"
|
||||
gdb_test_multiple "python print (\"\\n\" * $lines)" $test {
|
||||
-re "---Type <return>" {
|
||||
-re "--Type <RET>" {
|
||||
exp_continue
|
||||
}
|
||||
-re " to continue, or q <return>" {
|
||||
-re " for more, q to quit" {
|
||||
exp_continue
|
||||
}
|
||||
-re " to quit---$" {
|
||||
-re ", c to continue without paging--$" {
|
||||
pass $test
|
||||
}
|
||||
}
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue