From e66f243e929bbd94e62e77cfa6a63dfd001ebe07 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 14 Jun 2020 11:46:17 +0200 Subject: ui: Set 'LESS' environment variable unconditionally. Fixes . Reported by Lars-Dominik Braun . * guix/ui.scm (call-with-paginated-output-port): Remove (getenv "LESS") call. --- guix/ui.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/guix/ui.scm b/guix/ui.scm index 98b30445c8..7690f48660 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -1562,9 +1562,9 @@ zero means that PACKAGE does not match any of REGEXPS." (if (isatty?* (current-output-port)) ;; Set 'LESS' so that 'less' exits if everything fits on the screen (F), ;; lets ANSI escapes through (r), does not send the termcap - ;; initialization string (X). - (let ((pager (with-environment-variables `(("LESS" - ,(or (getenv "LESS") "FrX"))) + ;; initialization string (X). Set it unconditionally because some + ;; distros set it to something that doesn't work here. + (let ((pager (with-environment-variables `(("LESS" "FrX")) (open-pipe* OPEN_WRITE (or (getenv "GUIX_PAGER") (getenv "PAGER") "less"))))) -- cgit v1.2.3