Commit d94ad35b authored by Erik Naggum's avatar Erik Naggum
Browse files

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

parent 0ab5e72a
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment