allow space in search

svn: r523
This commit is contained in:
Matthew Flatt 2005-08-01 17:45:48 +00:00
parent e8c07c12a6
commit c31a64ee56

View File

@ -579,7 +579,7 @@ A test case:
(send hyper-keymap map-function "pageup" "previous-page")
(send hyper-keymap map-function "wheeldown" "do-wheel")
(send hyper-keymap map-function "pagedown" "next-page")
(send hyper-keymap map-function "space" "next-page")
; (send hyper-keymap map-function "space" "next-page")
;; call-with-hyper-panel : object ((is-a?/c hyper-panel<%>) -> void) -> void
(define (call-with-hyper-panel text f)