Make escape leave bird's eye

This commit is contained in:
malc 2011-08-08 11:22:48 +04:00
parent 77f7a95a79
commit 00756d5875
2 changed files with 10 additions and 2 deletions

2
KEYS
View file

@ -61,10 +61,10 @@ tunables
(only font name currently)
bird's eye mode
Ctrl-9/F9/esc - leave bird's eye view
(page)up/(page)down - navigate
home/end - go to first/last page
enter - select the page and leave bird's eye mode
Ctrl-9/F9 - leave bird's eye view
1st mouse button - select the page under cursor and leave bird's eye mode
outline/bookmark mode

10
main.ml
View file

@ -1261,7 +1261,15 @@ let viewkeyboard ~key ~x ~y =
| None ->
let c = Char.chr key in
begin match c with
| '\027' | 'q' ->
| '\027' ->
begin match state.birdseye with
| None -> exit 0
| Some vals ->
birdseyeoff vals;
reshape conf.winw conf.winh
end;
| 'q' ->
exit 0
| '\008' ->