From: Glenn Morris <rgm@gnu.org>
Date: Wed, 6 Jun 2012 18:13:09 +0000 (-0400)
Subject: * lisp/mail/emacsbug.el (report-emacs-bug): Add relevant EMACS env-vars.
X-Git-Tag: emacs-24.2.90~1199^2~474^2~107
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b48d7219e98a3faf5adba60a531eee84d2d8c7c;p=emacs.git

* 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 db1a35d1cfc..d1e9b705fc5 100644
--- 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 e9ff36a677e..94c223556d1 100644
--- 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"