From: Erik Naggum <erik@naggum.no>
Date: Wed, 24 Jan 1996 21:43:00 +0000 (+0000)
Subject: (report-emacs-bug): Insert newlines only in the inserted key descriptions.
X-Git-Tag: emacs-19.34~1580
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d94ad35b2754754b8fe3712d5565c7a8c5162957;p=emacs.git

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

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 407c9be57da..520763e245a 100644
--- 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