# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 822519780 0
# Node ID 0134b04bc92d201cba2a6c6534319b849d5c1759
# Parent  085bc709c11d9696b10c74ff12a3232344b4c5bf
(report-emacs-bug): Insert newlines only in the inserted key descriptions.

diff -r 085bc709c11d -r 0134b04bc92d lisp/mail/emacsbug.el
--- a/lisp/mail/emacsbug.el	Wed Jan 24 21:21:40 1996 +0000
+++ b/lisp/mail/emacsbug.el	Wed Jan 24 21:43:00 1996 +0000
@@ -66,18 +66,20 @@
 	(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