[bug#74190] [PATCH 2/3] install: Change the territory when we have learned it.

["Ludovic Courtès" <ludo@gnu.org>]

Florian Pelz <pelzflorian@pelzflorian.de> skribis:

> Typically, the LANGUAGE has already been set in the run-language-page
> step.  But for languages like pt, we must know the territory.
>
> gnu/installer/newt/locale.scm (run-territory-page): Switch to
  ^
Missing bullet (star).

> the territory before returning it.

Instead of “Switch to…”, I’d write “Call ‘setenv’ for the ‘LANGUAGE’
variable.”

>  (define (run-territory-page territories territory->text)
> -  (let ((title (G_ "Locale location")))
> +  (define result
>      (run-listbox-selection-page
> -     #:title title
> +     #:title (G_ "Locale location")
>       #:info-text (G_ "Choose a territory for this language.")
>       #:listbox-items territories
>       #:listbox-item->text territory->text
>       #:button-text (G_ "Back")
>       #:button-callback-procedure
>       (lambda _
> -       (abort-to-prompt 'installer-step 'abort)))))
> +       (abort-to-prompt 'installer-step 'abort))))
> +
> +  ;; Some languages, such as pt, cannot be installed early in the
> +  ;; run-language-page step.  Install them now, when we know the territory.
> +  (setenv "LANGUAGE" (string-append (getenv "LANGUAGE") "_" result))

Does that have an effect though: isn’t the Info reader already running
at this point?

Thanks,
Ludo’.