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 | 0fcaef2b6d3ca351c240ac2b5b21a121df55e38a (patch) | |
| tree | fe99bdc0aaddcefd9ac51921d76c4209098efcfc /lisp/mail | |
| parent | 9a889444bcd2261f0442d71ac7981b18ac726a15 (diff) | |
| download | emacs-0fcaef2b6d3ca351c240ac2b5b21a121df55e38a.tar.gz | |
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
Diffstat (limited to 'lisp/mail')
| -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 |