Subject: An extraneous line in an example in `emacs-lisp-intro.texi'
From: Michal Vyoral <[email-masked]>
To: [email-masked]
Date: Mon, 24 Aug 2015 19:01:16 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

There is an extraneous line `(setq kill-ring (cons string kill-ring))'
in the example of the kill-new function in the document
`emacs-lisp-intro.texi'.  Also the previous line is not propper
aligned. I suggest the attached patch.

Michal Vyoral
--- 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)))