1. xemacs
  2. net-utils

Source

net-utils / xemacsbug.el

Diff from to

File xemacsbug.el

 	  (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")