08/20: installer: Ignore case in button accelerators.

[John Darrington]

jmd pushed a commit to branch wip-installer
in repository guix.

commit 6e814f787e3e0cbcf2e0e6f723a16b0c5ef60ec4
Author: John Darrington <address@hidden>
Date:   Sat Jan 7 08:53:07 2017 +0100

    installer: Ignore case in button accelerators.
    
    * gurses/buttons.scm (buttons-key-matches-symbol): Check upper and lower 
case matches.
---
 gurses/buttons.scm |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gurses/buttons.scm b/gurses/buttons.scm
index 7b1c666..8be4983 100644
--- a/gurses/buttons.scm
+++ b/gurses/buttons.scm
@@ -1,5 +1,5 @@
 ;;; GNU Guix --- Functional package management for GNU
-;;; Copyright © 2016 John Darrington <address@hidden>
+;;; Copyright © 2016, 2017 John Darrington <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -152,7 +152,8 @@
 
 (define (buttons-key-matches-symbol? nav ch symbol)
   (if (char? ch)
-      (or (eq? (buttons-fetch-by-key nav (char-upcase ch)) symbol)
+      (or (eq? (buttons-fetch-by-key nav (char-downcase ch)) symbol)
+          (eq? (buttons-fetch-by-key nav (char-upcase ch)) symbol)
          (and (or (eq? ch #\newline)
                   (eq? ch #\space))
               (and=> (buttons-get-current-selection nav)