[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#44663] [PATCH] ui: Launch $PAGER through the shell.
From: |
Tobias Geerinckx-Rice |
Subject: |
[bug#44663] [PATCH] ui: Launch $PAGER through the shell. |
Date: |
Sun, 15 Nov 2020 19:47:26 +0100 |
This is the convention elsewhere and sounds like the right thing to do.
* guix/ui.scm (call-with-paginated-output-port): Substitute OPEN-PIPE
for OPEN-PIPE*.
Reported by Daniel Brooks <db48x@db48x.net>.
---
guix/ui.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/guix/ui.scm b/guix/ui.scm
index 4e686297e8..2b7d9dd64b 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -72,7 +72,7 @@
#:use-module (ice-9 match)
#:use-module (ice-9 format)
#:use-module (ice-9 regex)
- #:autoload (ice-9 popen) (open-pipe* close-pipe)
+ #:autoload (ice-9 popen) (open-pipe close-pipe)
#:autoload (system base compile) (compile-file)
#:autoload (system repl repl) (start-repl)
#:autoload (system repl debug) (make-debug stack->vector)
@@ -1673,9 +1673,9 @@ zero means that PACKAGE does not match any of REGEXPS."
;; instead of 'r': this strips hyperlinks but allows 'less' to make a
;; good estimate of the line length.
(let ((pager (with-environment-variables `(("LESS" ,less-options))
- (open-pipe* OPEN_WRITE
- (or (getenv "GUIX_PAGER") (getenv "PAGER")
- "less")))))
+ (open-pipe (or (getenv "GUIX_PAGER") (getenv "PAGER")
+ "less")
+ OPEN_WRITE))))
(dynamic-wind
(const #t)
(lambda () (proc pager))
--
2.29.2
- [bug#44663] [PATCH] ui: Launch $PAGER through the shell.,
Tobias Geerinckx-Rice <=