[Emacs-diffs] emacs-24 r117664: * lisp/mail/emacsbug.el (report-emacs-bug): No longer include recent-keys

[Glenn Morris]

------------------------------------------------------------
revno: 117664
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/18900
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Mon 2014-11-03 23:07:04 -0800
message:
  * lisp/mail/emacsbug.el (report-emacs-bug): No longer include recent-keys
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/mail/emacsbug.el          emacsbug.el-20091113204419-o5vbwnq5f7feedwu-73

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-11-03 14:29:51 +0000
+++ b/lisp/ChangeLog    2014-11-04 07:07:04 +0000
@@ -1,3 +1,8 @@
+2014-11-04  Glenn Morris  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug): No longer include
+       recent-keys in the report.  (Bug#18900)
+
 2014-11-03  Michael Albinus  <address@hidden>
 
        * net/tramp-sh.el (tramp-do-copy-or-rename-file-via-buffer): Use a

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2014-03-23 06:16:14 +0000
+++ b/lisp/mail/emacsbug.el     2014-11-04 07:07:04 +0000
@@ -143,11 +143,12 @@
        (error "Subject, To or body not found")))))
 
 ;;;###autoload
-(defun report-emacs-bug (topic &optional recent-keys)
+(defun report-emacs-bug (topic &optional unused)
   "Report a bug in GNU Emacs.
 Prompts for bug subject.  Leaves you in a mail buffer."
   ;; This strange form ensures that (recent-keys) is the value before
   ;; the bug subject string is read.
+  (declare (advertised-calling-convention (topic) "24.5"))
   (interactive (reverse (list (recent-keys) (read-string "Bug Subject: "))))
   ;; The syntax `version;' is preferred to `[version]' because the
   ;; latter could be mistakenly stripped by mailing software.
@@ -276,23 +277,6 @@
       (and (boundp mode) (buffer-local-value mode from-buffer)
           (insert (format "  %s: %s\n" mode
                           (buffer-local-value mode from-buffer)))))
-    (insert "\n")
-    (insert "Recent input:\n")
-    (let ((before-keys (point)))
-      (insert (mapconcat (lambda (key)
-                          (if (or (integerp key)
-                                  (symbolp key)
-                                  (listp key))
-                              (single-key-description key)
-                            (prin1-to-string key nil)))
-                        (or recent-keys (recent-keys))
-                        " "))
-      (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
          (let (beg-pos
@@ -301,7 +285,7 @@
              (goto-char end-pos)
              (forward-line -10)
              (setq beg-pos (point)))
-           (insert "\n\nRecent messages:\n")
+           (insert "\nRecent messages:\n")
            (insert-buffer-substring message-buf beg-pos end-pos))))
     ;; After Recent messages, to avoid the messages produced by
     ;; list-load-path-shadows.