Mercurial > emacs

comparison lisp/mail/emacsbug.el @ 84912:417443aefcdd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(report-emacs-bug): Use `mapc' rather than `mapcar'.
author Juanma Barranquero <lekktu@gmail.com>
date Wed, 26 Sep 2007 00:20:26 +0000
parents e460d01bb038
children fc93e9674475 bdb3fe0ba9fa
comparison
equal deleted inserted replaced
84911:1ffa59f288ec 84912:417443aefcdd
156 (if (and system-configuration-options 156 (if (and system-configuration-options
157 (not (equal system-configuration-options ""))) 157 (not (equal system-configuration-options "")))
158 (insert "configured using `configure " 158 (insert "configured using `configure "
159 system-configuration-options "'\n\n")) 159 system-configuration-options "'\n\n"))
160 (insert "Important settings:\n") 160 (insert "Important settings:\n")
161 (mapcar 161 (mapc
162 '(lambda (var) 162 '(lambda (var)
163 (insert (format " value of $%s: %s\n" var (getenv var)))) 163 (insert (format " value of $%s: %s\n" var (getenv var))))
164 '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES" 164 '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES"
165 "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG")) 165 "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG"))
166 (insert (format " locale-coding-system: %s\n" locale-coding-system)) 166 (insert (format " locale-coding-system: %s\n" locale-coding-system))