From 527b8a807143253ed8e52de004fb3cc9a17123c0 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bruno=20F=C3=A9lix=20Rezende=20Ribeiro?= <oitofelix@gnu.org>
Date: Sat, 8 Aug 2020 15:13:57 +0200
Subject: [PATCH] * doc/lispref/os.texi (Session Management): Make example
 homoiconic

* doc/lispref/os.texi (Session Management): Don't insert Lisp as
strings, but use format (bug#40341).

Copyright-paperwork-exempt: yes
---
 doc/lispref/os.texi | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index 942bda105f7..a7f353407ce 100644
--- a/doc/lispref/os.texi
+++ b/doc/lispref/os.texi
@@ -2687,9 +2687,10 @@ Emacs is restarted by the session manager.
 
 @group
 (defun save-yourself-test ()
-  (insert "(save-current-buffer
-  (switch-to-buffer \"*scratch*\")
-  (insert \"I am restored\"))")
+  (insert
+   (format "%S" '(save-current-buffer
+		   (switch-to-buffer "*scratch*")
+		   (insert "I am restored"))))
   nil)
 @end group
 @end example
-- 
2.39.2