diff options
| author | Erik Naggum <erik@naggum.no> | 1996-01-24 21:43:00 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1996-01-24 21:43:00 +0000 |
| commit | d94ad35b2754754b8fe3712d5565c7a8c5162957 (patch) | |
| tree | 7196e6ca7a447921b501759667191734f356f7e1 /lisp/mail/emacsbug.el | |
| parent | 0ab5e72ab1961536fcf391fb68087aa358e89eb6 (diff) | |
| download | emacs-d94ad35b2754754b8fe3712d5565c7a8c5162957.tar.gz | |
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Diffstat (limited to 'lisp/mail/emacsbug.el')
| -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 |