--- a/emacs-lisp-intro.texi
+++ b/emacs-lisp-intro.texi
@@ -8668,13 +8668,8 @@ The critical lines are these:
   (if (and replace kill-ring)
       ;; @r{then}
       (setcar kill-ring string)
-@end group
-@group
     ;; @r{else}
-  (push string kill-ring)
-@end group
-@group
-    (setq kill-ring (cons string kill-ring))
+    (push string kill-ring)
     (if (> (length kill-ring) kill-ring-max)
         ;; @r{avoid overly long kill ring}
         (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))