[Emacs-diffs] emacs-24 r116839: Backport memory info in bug reports (r116832) from trunk

[Daniel Colascione]

------------------------------------------------------------
revno: 116839
revision-id: address@hidden
parent: address@hidden
committer: Daniel Colascione <address@hidden>
branch nick: emacs-24
timestamp: Sat 2014-03-22 23:16:14 -0700
message:
  Backport memory info in bug reports (r116832) from trunk
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/mail/emacsbug.el          emacsbug.el-20091113204419-o5vbwnq5f7feedwu-73

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-03-23 06:00:18 +0000
+++ b/lisp/ChangeLog    2014-03-23 06:16:14 +0000
@@ -1,3 +1,8 @@
+2014-03-21  Daniel Colascione  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug): Include memory usage
+       information in bug reports.
+
 2014-03-23  Daniel Colascione  <address@hidden>
 
        * emacs-lisp/cl-macs.el (cl--do-arglist): Use a little `cl-loop'

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2014-02-10 01:34:22 +0000
+++ b/lisp/mail/emacsbug.el     2014-03-23 06:16:14 +0000
@@ -322,6 +322,10 @@
                 shadows)))
     (insert (format "\nFeatures:\n%s\n" features))
     (fill-region (line-beginning-position 0) (point))
+
+    (insert (format "\nMemory information:\n"))
+    (pp (garbage-collect) (current-buffer))
+    
     ;; This is so the user has to type something in order to send easily.
     (use-local-map (nconc (make-sparse-keymap) (current-local-map)))
     (define-key (current-local-map) "\C-c\C-i" 'info-emacs-bug)