From 2b48d7219e98a3faf5adba60a531eee84d2d8c7c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 6 Jun 2012 14:13:09 -0400 Subject: [PATCH] * lisp/mail/emacsbug.el (report-emacs-bug): Add relevant EMACS env-vars. Only print environment variables if set. --- lisp/ChangeLog | 5 +++++ lisp/mail/emacsbug.el | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) 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 + + * mail/emacsbug.el (report-emacs-bug): Add relevant EMACS env-vars. + Only print environment variables if set. + 2012-06-06 Stefan Monnier * 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" -- 2.39.2