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

Only print environment variables if set.
This commit is contained in:
Glenn Morris 2012-06-06 14:13:09 -04:00
parent fa779ab0e2
commit 2b48d7219e
2 changed files with 9 additions and 2 deletions

View file

@ -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"