From 1b87dc2f2a897f5fe0b3f8984c2544335ac87b56 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 10 Jan 2022 19:30:10 +0100
Subject: [PATCH] doc: Use @lisp and clarify 'setuid-program' examples.

* doc/guix.texi (Setuid Programs): Use @lisp instead of @example.  Add
scope for the 'setuid-programs' field snippet.
---
 doc/guix.texi | 18 ++++++++++--------
 1 file changed, 10 insertions(+), 8 deletions(-)

diff --git a/doc/guix.texi b/doc/guix.texi
index 390c4347d6..cc89e55ec9 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -34123,21 +34123,23 @@ Configuration System}).  For instance, the @command{mount.nfs} program,
 which is part of the nfs-utils package, with a setuid root can be
 designated like this:
 
-@example
+@lisp
 (setuid-program
   (program (file-append nfs-utils "/sbin/mount.nfs")))
-@end example
+@end lisp
 
 And then, to make @command{mount.nfs} setuid on your system, add the
 previous example to your operating system declaration by appending it to
 @code{%setuid-programs} like this:
 
-@example
-(setuid-programs
-  (append (list (setuid-program
-                  (program (file-append nfs-utils "/sbin/mount.nfs"))))
-                %setuid-programs))
-@end example
+@lisp
+(operating-systems
+  ;; Some fields omitted...
+  (setuid-programs
+    (append (list (setuid-program
+                    (program (file-append nfs-utils "/sbin/mount.nfs")))
+                  %setuid-programs))))
+@end lisp
 
 @deftp {Data Type} setuid-program
 This data type represents a program with a setuid or setgid bit set.