CVS update by aidan packages/xemacs-packages/net-utils ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/06/21 17:23:00

  Modified:    packages/xemacs-packages/net-utils ChangeLog xemacsbug.el
Log:
Pass on locale information with report-xemacs-bug.

Revision  Changes    Path
1.83      +6 -0      XEmacs/packages/xemacs-packages/net-utils/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/ChangeLog,v
retrieving revision 1.82
retrieving revision 1.83
diff -u -p -r1.82 -r1.83
--- ChangeLog	2007/03/06 14:12:37	1.82
+++ ChangeLog	2007/06/21 15:22:57	1.83
@@ -1,3 +1,9 @@
+2007-06-21  Aidan Kehoe  <kehoea at 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.
+
 2007-03-06  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.52 released.



1.13      +54 -0     XEmacs/packages/xemacs-packages/net-utils/xemacsbug.el

Index: xemacsbug.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/net-utils/xemacsbug.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -p -r1.12 -r1.13
--- xemacsbug.el	2007/03/06 14:03:00	1.12
+++ xemacsbug.el	2007/06/21 15:22:57	1.13
@@ -197,6 +197,60 @@ System Info to help track down your bug:
 	  (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")