diff options
| -rw-r--r-- | lisp/mail/emacsbug.el | 22 |
1 files 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 |