Mercurial > emacs

changeset 14280:0134b04bc92d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Insert newlines only in the inserted key descriptions.
author Erik Naggum <erik@naggum.no>
date Wed, 24 Jan 1996 21:43:00 +0000
parents 085bc709c11d
children e7e0b0b8a2fe
files lisp/mail/emacsbug.el
diffstat 1 files changed, 12 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/emacsbug.el	Wed Jan 24 21:21:40 1996 +0000
+++ b/lisp/mail/emacsbug.el	Wed Jan 24 21:43:00 1996 +0000
@@ -66,18 +66,20 @@
 	(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