jmd pushed a commit to branch wip-installer
in repository guix.
commit 6e814f787e3e0cbcf2e0e6f723a16b0c5ef60ec4
Author: John Darrington <j...@gnu.org>
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 <j...@gnu.org>
+;;; Copyright © 2016, 2017 John Darrington <j...@gnu.org>
;;;
;;; 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)
