(report-emacs-bug): Insert newlines only in the inserted key descriptions.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 407c9be57da3135bba9646f94bfd1fee1d769933..520763e245afb42bcbf47768a7181db22b110eec 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -66,18 +66,20 @@ Prompts for bug subject.  Leaves you in a mail buffer."
        (insert "\n\n\n"
                "Recent input:\n")
        (let ((before-keys (point)))
-         (insert (mapconcat (function (lambda (key)
-                                        (if (or (integerp key)
-                                                (symbolp key)
-                                                (listp key))
-                                            (single-key-description key)
-                                          (prin1-to-string key nil))))
+         (insert (mapconcat (lambda (key)
+                              (if (or (integerp key)
+                                      (symbolp key)
+                                      (listp key))
+                                  (single-key-description key)
+                                (prin1-to-string key nil)))
                             (recent-keys)
                             " "))
-         (goto-char before-keys)
-         (while (progn (move-to-column 50) (not (eobp)))
-           (search-forward " " nil t)
-           (insert "\n")))
+         (save-restriction
+           (narrow-to-region before-keys (point))
+           (goto-char before-keys)
+           (while (progn (move-to-column 50) (not (eobp)))
+             (search-forward " " nil t)
+             (insert "\n"))))
        (let ((message-buf (get-buffer "*Messages*")))
          (if message-buf
              (progn