[Emacs-diffs] /srv/bzr/emacs/emacs-24 r108506: * lisp/mail/emacsbug.el (report-emacs-bug): Add relevant EMACS env-vars.

[Glenn Morris]

------------------------------------------------------------
revno: 108506
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-06-06 14:13:09 -0400
message:
  * lisp/mail/emacsbug.el (report-emacs-bug): Add relevant EMACS env-vars.
  Only print environment variables if set.
modified:
  lisp/ChangeLog
  lisp/mail/emacsbug.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-06-06 18:08:00 +0000
+++ b/lisp/ChangeLog    2012-06-06 18:13:09 +0000
@@ -1,3 +1,8 @@
+2012-06-06  Glenn Morris  <address@hidden>
+
+       * mail/emacsbug.el (report-emacs-bug): Add relevant EMACS env-vars.
+       Only print environment variables if set.
+
 2012-06-06  Stefan Monnier  <address@hidden>
 
        * emacs-lisp/macroexp.el: Don't require CL since we don't use it.

=== modified file 'lisp/mail/emacsbug.el'
--- a/lisp/mail/emacsbug.el     2012-05-22 03:38:10 +0000
+++ b/lisp/mail/emacsbug.el     2012-06-06 18:13:09 +0000
@@ -256,8 +256,10 @@
     (insert "Important settings:\n")
     (mapc
      (lambda (var)
-       (insert (format "  value of $%s: %s\n" var (getenv var))))
-     '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES"
+       (let ((val (getenv var)))
+        (if val (insert (format "  value of $%s: %s\n" var val)))))
+     '("EMACSDATA" "EMACSDOC" "EMACSLOADPATH" "EMACSPATH"
+       "LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES"
        "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG" "XMODIFIERS"))
     (insert (format "  locale-coding-system: %s\n" locale-coding-system))
     (insert (format "  default enable-multibyte-characters: %s\n"