bug#21341: An extraneous line in an example in `emacs-lisp-intro.texi'

[Michal Vyoral <michal.vyoral@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 245 bytes --]

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

[-- Attachment #2: emacs-lisp-introduction.patch.txt --]
[-- Type: text/plain, Size: 504 bytes --]

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