APPROVE COMMIT NOTE: This patch has been committed. xemacs-packages/net-utils/ChangeLog addition: 2007-06-21 Aidan Kehoe <kehoea(a)parhasard.net&gt; * xemacsbug.el (report-xemacs-bug): Give details of the POSIX locale, the Lisp language environment, and the standard coding system aliases when reporting a bug. XEmacs Packages source patch: Diff command: cvs -q diff -u Files affected: xemacs-packages/net-utils/xemacsbug.el =================================================================== RCS Index: xemacs-packages/net-utils/xemacsbug.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/xemacsbug.el,v retrieving revision 1.12 diff -u -r1.12 xemacsbug.el --- xemacs-packages/net-utils/xemacsbug.el 2007/03/06 14:03:00 1.12 +++ xemacs-packages/net-utils/xemacsbug.el 2007/06/21 15:18:23 ＠＠ -197,6 +197,60 ＠＠ (narrow-to-region before-shadows (point)) (fill-paragraph t) (insert "\n")))) + + (insert "\n\Internationalization Settings:\n" + "-------------------------\n") + + (when (featurep 'mule) + (insert "\nEnvironment:\n\n") + (mapcar + (lambda (var) + (insert (format " Value of %-12s: %s\n" + var (getenv var)))) + '("LC_ALL" "LC_COLLATE" "LC_CTYPE" "LC_MESSAGES" + "LC_MONETARY" "LC_NUMERIC" "LC_TIME" "LANG")) + + (insert "\n") + + (insert "Lisp locale settings:\n\n") + + (dolist (sym '(current-language-environment + default-buffer-file-coding-system + default-process-coding-system + (current-locale) + keyboard-coding-system + terminal-coding-system)) + (insert (format " %-34s=> %S\n" sym + (if (consp sym) + (if (fboundp (car sym)) + (eval sym) + [not available]) + (if (boundp sym) + (symbol-value sym) + [not available]))))) + + (insert (format " %-34s=>\n" "(coding-priority-list)")) + (let ((before-coding-priority (point)) + (fill-prefix " ")) + (insert (format " %S" (coding-priority-list))) + (save-restriction + (narrow-to-region before-coding-priority (point)) + (fill-paragraph nil) + (insert "\n"))) + + (insert "\n") + + (insert "Coding system aliases:\n\n") + + (dolist (alias '(native file-name + mswindows-multibyte-system-default)) + (insert (if (not (coding-system-alias-p alias)) + (format " '%-35s is not a coding system alias\n" + alias) + (format " '%-35s is aliased to %S\n" + alias + (coding-system-aliasee alias)))))) + ;; Insert a list of installed packages. (insert "\n\nInstalled XEmacs Packages:\n" "-------------------------\n") -- On the quay of the little Black Sea port, where the rescued pair came once more into contact with civilization, Dobrinton was bitten by a dog which was assumed to be mad, though it may only have been indiscriminating. (Saki) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches