150/376: Provide reasonable default flags for $LESS

[Ludovic Court�s]

civodul pushed a commit to tag 1.8
in repository guix.

commit 9481f7769390b934fba92441be32b39287cc93d7
Author: Eelco Dolstra <eelco.dols...@logicblox.com>
Date:   Wed Aug 20 21:22:41 2014 +0200

    Provide reasonable default flags for $LESS
    
    Borrowed from systemd.
---
 src/libmain/shared.cc |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/libmain/shared.cc b/src/libmain/shared.cc
index 263e174..5a74036 100644
--- a/src/libmain/shared.cc
+++ b/src/libmain/shared.cc
@@ -305,13 +305,14 @@ RunPager::RunPager()
     pid = startProcess([&]() {
         if (dup2(toPager.readSide, STDIN_FILENO) == -1)
             throw SysError("dupping stdin");
+        if (!getenv("LESS"))
+            setenv("LESS", "FRSXMK", 1);
         execl("/bin/sh", "sh", "-c", pager.c_str(), NULL);
         throw SysError(format("executing ‘%1%’") % pager);
     });
 
     if (dup2(toPager.writeSide, STDOUT_FILENO) == -1)
         throw SysError("dupping stdout");
-
 }