From 7230bd9a2f3ee02ee1eb956c51140029780eba5a Mon Sep 17 00:00:00 2001 From: mainzelm Date: Tue, 31 May 2005 15:14:45 +0000 Subject: [PATCH] Adapt to new interface of paint-selection-list-at --- scheme/nuit-engine.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm index c90043d..a4923be 100644 --- a/scheme/nuit-engine.scm +++ b/scheme/nuit-engine.scm @@ -327,7 +327,7 @@ (loop (wait-for-input) #f maybe-selector))) ;; F7 toggle scheme-mode / command-mode (FIXME: find a better key) - ((= ch key-f7) + ((= ch key-home) (toggle-command/scheme-mode) (loop (wait-for-input) #f #f)) @@ -808,7 +808,7 @@ (mvwaddstr win 0 0 (string-append "Possible completions for " command)) (wattrset win (A-NORMAL)) - ((paint-selection-list-at select-list 0 2) + (paint-selection-list-at select-list 0 2 win result-buffer (focus-on-result-buffer?)) (refresh-result-window)))