mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Erik Naggum 1996-01-24 21:43:00 +00:00
parent 0ab5e72ab1
commit d94ad35b27
1 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/mail/emacsbug.el
View file

@ -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