summaryrefslogtreecommitdiff
path: root/gnu/installer/newt/page.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-05-14 11:57:55 +0200
committerLudovic Courtès <ludo@gnu.org>2019-05-14 12:11:04 +0200
commitef250707d3303d58ae00fe8f461701e7fa788d8a (patch)
tree5fe9638a8859567b052bdd15966c3e66f09ba246 /gnu/installer/newt/page.scm
parent50867421f91e16aab6d66a1c1707d32434273c50 (diff)
downloadpatches-ef250707d3303d58ae00fe8f461701e7fa788d8a.tar
patches-ef250707d3303d58ae00fe8f461701e7fa788d8a.tar.gz
installer: Allow for arbitrary long passphrases and passwords.
Fixes <https://bugs.gnu.org/35716>. Reported by sirmacik <sirmacik@wioo.waw.pl>. * gnu/installer/newt/page.scm (run-input-page): Add FLAG-SCROLL to INPUT-FLAGS*. * gnu/installer/newt/user.scm (run-user-add-page): Add FLAG-SCROLL to ENTRY-PASSWORD.
Diffstat (limited to 'gnu/installer/newt/page.scm')
-rw-r--r--gnu/installer/newt/page.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/gnu/installer/newt/page.scm b/gnu/installer/newt/page.scm
index 07779b16fa..6291549eb0 100644
--- a/gnu/installer/newt/page.scm
+++ b/gnu/installer/newt/page.scm
@@ -90,7 +90,8 @@ input box, such as FLAG-PASSWORD."
(input-visible-cb
(make-checkbox -1 -1 (G_ "Hide") #\x "x "))
(input-flags* (if input-hide-checkbox?
- (logior FLAG-PASSWORD input-flags)
+ (logior FLAG-PASSWORD FLAG-SCROLL
+ input-flags)
input-flags))
(input-entry (make-entry -1 -1 20
#:flags input-flags*))