* 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

diff --git a/doc/lispref/os.texi b/doc/lispref/os.texi
index 942bda105f703edea2de36d9f7e96608b4912ff0..a7f353407ce90566821ad9add316470910507c38 100644 (file)
--- 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