* lisp/mail/emacsbug.el (report-emacs-bug): Add relevant EMACS env-vars.

Only print environment variables if set.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index db1a35d1cfcd30248a17e0a9c4fa0ee4fea41e81..d1e9b705fc55ddc95e64449d7ed07699e4d0649e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-06-06  Glenn Morris  <rgm@gnu.org>
+
+       * mail/emacsbug.el (report-emacs-bug): Add relevant EMACS env-vars.
+       Only print environment variables if set.
+
 2012-06-06  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/macroexp.el: Don't require CL since we don't use it.

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index e9ff36a677e8e971a2201d2d56af58ad448f7d3c..94c223556d1bbd8a44e7f4760214e7dcfa922f8a 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -256,8 +256,10 @@ usually do not have translators for other languages.\n\n")))
     (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"