From 249dd4090e4940019b1df5f3971ed49a79076034 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 29 Mar 2001 15:31:58 +0000 Subject: [PATCH] (report-emacs-bug): Report LC_COLLATE, LC_MESSAGES, LC_MONETARY, LC_NUMERIC, and LC_TIME as well. From Paul Eggert. --- lisp/ChangeLog | 5 +++++ lisp/mail/emacsbug.el | 8 +++++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 24db082e6e9..de1942176d1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-03-29 Paul Eggert + + * 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 * generic.el (generic-mode-set-comments): Use "" rather than nil diff --git a/lisp/mail/emacsbug.el b/lisp/mail/emacsbug.el index 2e290e639dd..2d09083cc61 100644 --- 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)) -- 2.39.2