diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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 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)) |