(report-emacs-bug): Report LC_COLLATE,

LC_MESSAGES, LC_MONETARY, LC_NUMERIC, and LC_TIME as well.
From Paul Eggert.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 24db082e6e9ea8a342e416d96784a0cc806ec639..de1942176d17782aef909f03e0a43e605b9da53f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-29  Paul Eggert  <eggert@twinsun.com>
+
+       * mail/emacsbug.el (report-emacs-bug): Report LC_COLLATE,
+       LC_MESSAGES, LC_MONETARY, LC_NUMERIC, and LC_TIME as well.
+
 2001-03-29  Stefan Monnier  <monnier@cs.yale.edu>
 
        * generic.el (generic-mode-set-comments): Use "" rather than nil

diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el
index 2e290e639dd332a8c45045a54e035b27ced834ee..2d09083cc61a11876473a8b52027105e547b1eac 100644 (file)
--- a/lisp/mail/emacsbug.el
+++ b/lisp/mail/emacsbug.el
@@ -120,9 +120,11 @@ translators to read other languages for them.\n\n")
        (insert "configured using `configure "
                system-configuration-options "'\n"))
     (insert "Important settings:\n")
-    (insert (format "  value of $LC_ALL: %s\n" (getenv "LC_ALL")))
-    (insert (format "  value of $LC_CTYPE: %s\n" (getenv "LC_CTYPE")))
-    (insert (format "  value of $LANG: %s\n" (getenv "LANG")))
+    (mapcar
+     '(lambda (var)
+       (insert (format "  value of $%s: %s\n" var (getenv var))))
+     '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES"
+       "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG"))
     (insert (format "  locale-coding-system: %s\n" locale-coding-system))
     (insert (format "  default-enable-multibyte-characters: %s\n"
                    default-enable-multibyte-characters))