From d94ad35b2754754b8fe3712d5565c7a8c5162957 Mon Sep 17 00:00:00 2001 From: Erik Naggum Date: Wed, 24 Jan 1996 21:43:00 +0000 Subject: [PATCH] (report-emacs-bug): Insert newlines only in the inserted key descriptions. --- lisp/mail/emacsbug.el | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) 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 -- 2.39.2