Fix broken message name

This commit is contained in:
eknauel 2005-05-31 07:58:28 +00:00
parent c889c878ef
commit f964abb252
1 changed files with 1 additions and 1 deletions

View File

@ -937,7 +937,7 @@
((make-simple-result-buffer-printer y x text '() '()) ((make-simple-result-buffer-printer y x text '() '())
win buffer have-focus?))) win buffer have-focus?)))
((eq? message 'key) ((eq? message 'key-press)
(lambda (self . ignore) (lambda (self . ignore)
self)))))) self))))))