[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: installer: Fix F1 key.
From: |
Danny Milosavljevic |
Subject: |
01/01: installer: Fix F1 key. |
Date: |
Wed, 5 Jul 2017 11:09:22 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit fe43d62634496227d400a386fde39ffc540da442
Author: Danny Milosavljevic <address@hidden>
Date: Wed Jul 5 17:08:45 2017 +0200
installer: Fix F1 key.
* gnu/system/installer/page.scm (page-default-key-handler): Modify.
---
gnu/system/installer/page.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/gnu/system/installer/page.scm b/gnu/system/installer/page.scm
index d100f3a..63955ee 100644
--- a/gnu/system/installer/page.scm
+++ b/gnu/system/installer/page.scm
@@ -158,7 +158,8 @@ If a form is used it's assumed that the menu is not used
and vice versa."
(form-set-enabled! form #t)))
'handled)
- ((and nav (or (buttons-fetch-by-key nav (char-upcase ch))
+ ((and nav (char? ch)
+ (or (buttons-fetch-by-key nav (char-upcase ch))
(buttons-fetch-by-key nav (char-downcase ch))))
(buttons-select-by-symbol nav (or (buttons-fetch-by-key nav
(char-upcase ch))