[COMMIT] Pass on locale information with report-xemacs-bug.
APPROVE COMMIT
NOTE: This patch has been committed.
xemacs-packages/net-utils/ChangeLog addition:
2007-06-21 Aidan Kehoe <kehoea(a)parhasard.net>
* 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